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DEMOLIDOR 
2 K 

Jogo animado. tipo ‘fliperama 0 joga 
dor devera demolir uma parede com 
uma boia que te encontra sempre em 
movimento 


JOGO DE GAMAO 
16K 


MONSTRO DAS TREVAS 
TRIDIMENSIONAL ■ 16K 

Impressionante jogo onda você deve 
evitar o monstro das travas. Tudo em 3 
dimensões 


Este programa apresenta o tabuleiro no 
o e utiliza o eficiente codtgo de ma 
quma permitindo 4 iquatroi mvais de 

rt>'.cuidadas de jogo 


Min 


RALLY 

16K 

Emocionante corrida da rally em um la 
brrinto. onda poderão ser testados suj 
habilidade e seus reflexos Para conse 
guir seu mtanto vocé deverá evitar car 
ros ataque e obstáculos em seu trajeto 


INVASORES DO 
ESPAÇO 16K 


LABIRINTO 

TRIDIMENSIONAL ■ 16K 

jogo em trás dimensões O jogador po 
ce r « cer-nir a dificuldade do Labmnto 
0 programa apresenta a posição do jo¬ 
gador em perspectiva Em qualquer mo 
mento e possível pedu auxilio ao com 
PutedO' _ 


Consiste de uma trota de naves invaso 
ras extraterrenas. descendo no planeta 
Terra Sua missão e destruir as naves 
invasoras dispondo da arma de raios la 




TKALC 

16K/64K 


TK MAN 
16K 

Jogo ammado onde deverão ser apaga 
dos lodos os pontinhos espalhados em 
um labirinto lo programa contem 15 ti 
pos de labirinto! Você sera impedido a 
qualquer custo por 4 «xtraterrenos 
guardiães do labirinto, que poderão ser 
combatidos com cargas de raios-laser 


MATEMATICA I 
16K/64K 

Analise grafica de funcoes matemah 
cas resolução de sistemas de equa 
còes imeares 1I6K 51 equações'64K 95 
equações», e Calculo de integrais deti 


Programa desenvolvido para caicuios 


numéricos em planilha 0 usuano deli 
ne as colunas, as Imhas e as formulas 
aplicadas Similar ao famoso Visicaic 
De grande versatilidade, este programa 
permite a formulação de cálculos cien¬ 
tíficos e comerciais, analise de tabelas 
numencas e outras aplicações 


TKADREZ II 
16K 

Este iogo apresenta o tabuleiro e as pe 
no videc Permite « escolha de ate 
dificuldade 0 programa for 
nece atjnalque' momento a üstaçem 
dos snces èhauiados e armazena em 
fita a po&icão das Poças Eie poderá re 
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Em várias ocasiões já deixamos bem 
c/aro que o enfoque de nossa publicação é 
muito mais didático que jornalístico. Que¬ 
remos, é lógico, que o usuário do TK seja 
alguém bem informado, mas também, e 
principal mente, queremos que ele aprenda 
a tirar o máximo proveito de seu equipa¬ 
mento. O micro processador Z8Q, que é o 
coração do TK, tem funções apenas parcial- 
mente aproveitadas por quem programa em 
BASIC. Por isso entramos com esse núme¬ 
ro, no universo do ASSEMBL Y (incidental - 
mente, "ASSE MB LER" não é uma lingua¬ 
gem: é um programa que permite elaborar 
programas em ASSE MB L Y). 

Como a linguagem de máquina é de ár¬ 
duo aprendizado, a nossa preocupação di¬ 
dática nos diz para não correr. Por isso, en¬ 
quanto o curso de ASSEMBLY do F/avio 
Rossini avança, os artigos da revista neste 
tema se limitarão, por enquanto, a ensinar 
o leitor a digitá-los e utilizá-los sem entrar 
em detalhes sobre a linguagem em si. 

Quanto ao crescimento (e não apenas 
físico) de nossa revista, este número o já 
fala por si. Só nos resta agradecer a avalan¬ 
che de novos assinantes que apesar de al¬ 
guns tropeços e atrasos iniciais (que vamos 
levar algum tempo para consertar) confia¬ 
ram em nós e permitiram a consolidação 
deste empreendimento que abre um cana! 
de diálogo, informação e aprendizado para 
a comunidade cada vez mais vasta dos usuá¬ 
rios do TK. 
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CARTA DOS 
LEITORES 


Caros amigos da Micromega, 

Fiquei muito contente com o lançamento da revista 
"Usuários do TK". Era isso que faltava no mercado da 
informática, uma revista dedicada somente para nós f que 
possuímos um TK. Gostei muito dessa promoção de as¬ 
sinatura, no qual, ganhamos uma fita de programas 
"grátis". Desejo-lhes todo o sucesso. 

Gostaria que me enviassem maiores informações sobre 
o programa "Barão Vermelho ", o qual não rodou direi¬ 
to em meu TK. 

Luciano Chaves (Florianópolis — SC) 


juntamente com o exemplar nQ 1. Pediria então que me 
informassem quando será feito o envio da referida fita. 

Quero também parabenizá-los pelo conteúdo do nQ 
1 que pecou somente pelo reduzido número de páginas. 
Acho que seria de interesse de todos os leitores que a 
revista tivesse o número de páginas ampliado, abrindo 
novas seções, não esquecendo, portanto da seção 
HO BB V prometida no exemplar nQ 0, que não apareceu 
no nQ 1 e que me parece não aparecerá no nQ 2. 

José Daniel Oliveira Vigário 


Caro Luciano, 

Obrigado pelo incentivo. Com relação ao programa 
"Barão Vermelho", que fez tanto sucesso que foi até 
copiado por outra revista do ramo, ele provavelmente 
não rodou direito no seu TK pois ele não possui 
SLOW. Para eliminar este inconveniente você deve inse¬ 
rir após cada instrução PRINT uma instrução PAUSE 
30. Desta forma a tela ficará piscando mas dará para jo¬ 
gar. Se você enviar o seu computador à fábrica da 
MICRODIGITAL, eles podem instalar o circuito SLOW 
para você. Antes escreva uma carta para saber o custo. 

o 

Prezados Senhores, 

Ao folhear a revista M/CROHOBBY, cujo primeiro 
exemplar recebi no dia 15/6, tive uma decepção. 

Trata-se da falta da seção HOBBY indicada no exem¬ 
plar nQ 0 como a seção que apresentará projetos eletrô¬ 
nicos para serem executados por todos os leitores, que 
como eu têm a eletrônica como hobby. Nesta seção, de¬ 
veria constar as informações necessárias para a adapta¬ 
ção da função SLOW em nossos computadores. Che¬ 
guei a esta conclusão lendo o último parágrafo do pro¬ 
grama Boliche editado no exemplar nQ 0, que informava 
que o número 1 da revista trazia os detalhes para acres¬ 
centar o SLOW em nossas máquinas. 

Gostaria também que me fosse sanada uma dúvida 
quanto ao recebimento da fita brinde, pois não a recebi 


Prezado José Daniel , 

Com relação à fita brinde houve realmente um atraso, 
motivado por várias coisas. Uma delas foi um "grilo" re¬ 
lativo ao TK85 que nos fez interromper a produção. 
Posteriormente, ela foi retomada a todo vapor e você ao 
ler estas linhas já deve tê-la recebido. 

Com relação ao número reduzido de páginas, a revista 
que você têm em mãos já é uma resposta. 

A seção HOBBY logo se desenvolverá a todo vapor Rece¬ 
bemos de nossos correspondentes muitos projetos pa¬ 
ra "hobbystas" mas,infelizmente,nem sempre existem 
componentes nacionais disponíveis. Entretanto estamos 
fazendo as devidas adaptações para futura publicação. 

Com relação ao SLOW, quando escrevemos ". . . co¬ 
mo fazer para acrescentar SLOW à sua máquina." está¬ 
vamos pensando em dar uma relação de oficinas aptas a 
fazer tal adaptação. 

Tal relação ainda não foi publicada pois aguardamos 
respostas de uma série de cartas que enviamos para le¬ 
vantar tal lista. 

Ficamos muito surpresos quando percebemos que al¬ 
guns leitores estavam esperando o circuito. 

Muito bem, agora vamos ter que montar uma matéria 
a esse respeito. Ela, porém, só poderá ser publicada se 
não violar segredos industriais das duas fábricas brasilei¬ 
ras envolvidas. 
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Prezados Senhores, 

Antes de mais nada, os meus cumprimentos pelo lan¬ 
çamento de MICROHOBBY. Sem dúvida nenhuma, o 
TK é o computador mais vendido devido ao baixo custo 
(em relação aos outros micros existentes no mercado) e 
a sua grande capacidade de operação. Desejo muito su¬ 
cesso a vocês, uma vez que nós, usuários do TK só temos 
a ganhar com isso. 

Agora vamos às dúvidas, para as quais peço a atenção 
e elucidação de vocês: 

1) Por que os "micros" nacionais são muito mais caros 
do que os originais estrangeiros? Seria talvez abuso da 
reserva de mercado? 

2) No nÇ 0 da MICROHOBBY, seção "Programa do 
Mês", no programa BOLICHE, vocês escreveram que no 
nÇ 1 seria mostrado como acrescentar "SLOW" aos 
TK's que ainda não o tivessem. Não mostraram e não 
comentaram nada a respeito. Então pergunto: como fa¬ 
zer para acrescentar "SLOW "ao meu TK? 

3) Como explicar o desempenho do programa "DEMO¬ 
LIDOR", da MICROSOFT, num TK sem SLOW? Isto 
sempre me deixou bastante curioso. 

4) Cadê a fita brinde? Nenhuma notícia sobre ela no 
nÇ 1 . 

5) E verdade que existem problemas com o joystick e a 
printer do TK? 

Luis Henrique B. de Miranda — B. Horizonte — MG 


Prezado Luis Henrique, 

Obrigado pelos cumprimentos. Elucidando suas dúvi¬ 
das pela ordem: 

1) Se você fizer as contas pelo câmbio real e não oficial, 
verá que os micros nacionais não são tão mais caros, 
além disso, você deve saber que a "escala" de produção 
influi significativamente no custo. 0 Brasil é um país po¬ 
bre, com um povo pobre e poucos privilegiados podem 
se dar ao luxo de comprar um micro: o TK que é o "pro¬ 
letário" dos micros custa 3 salários mínimos. Enquanto 
que no Brasil o número de micros que usam a lógica 
SINCLAIR ainda está longe de 50000, no mundo (Ingla¬ 
terra, Itália, França, Estados Unidos e Canadá) temos 2 
milhões. 

2) Veja a resposta ao José Daniel 

3) Passamos a pergunta para a seção DESGRILANDO 
(pág. 12 ). 

4) Veja José Daniel 

5) Os recentes "pacotes" fecharam a importação de uma 
peça vital para a impressora do TK. Enquanto perdurar 
esta proibição vamos ter que aguardar mais um pouco. 

0 Joystick não tem problemas. Quem pode apresen¬ 
tar problemas é um lote de máquinas que só funciona 


com joystick mediante a troca de alguns resistores. Se 
sua máquina tiver este problema fomos informados pela 
MICRODIGITAL que ela faz o ajuste citado gratuita¬ 
mente, correndo por sua conta apenas as despesas de fre¬ 
te. Basta enviar sua máquina para a MICRODIGITAL, 
mesmo que ela já esteja fora de garantia. 

O 


Caro Senhor Diretor, 

Tendo recebido o nÇ 1 da revista MICROHOBBY, 
tomo a Uberdade de escrever-lhe esta curta missiva, pelos 
fatos que passo a expor: 

1) Sou possuidor de micro NEZ-8000, que, tal como os 
primeiros TK82 fabricados, não possui a modalidade 
"SLOW". 

2) Assim, examinando o n9 0 da revista, resolvi assiná- 
la, pois à página 6 (Programa BOLICHE) estava expres¬ 
samente dito que no nP 1 constariam as informações de 
"como fazer para acrescentar o SLOW à máquina." 

3) Qual não foi minha surpresa, ao verificar que no nP 
1 não se fazia qualquer menção a tal assunto. Ora, en¬ 
tendendo que vários dos assinantes dessa revista, que co¬ 
mo eu depositaram irrestrita confiança em sua publica¬ 
ção, (o que, cá entre nós, trata-se de risco incalculável, 
nos dias em que vivemos) são possuidores do NEZ-8000, 
acredito que a pretenção de muitas respostas não foi 
atendida. 

4) ê claro que se eu fosse adquirir um micro hoje, opta¬ 
ria pelos fabricados pela MICRODIGITAL, recusando- 
me a adquirir qualquer produto da PROLÔG/CA. 

5) Assim, como tal não ocorreu, solicito de V.Sa. que 
corrija esta falha, publicando com urgência o esquema 

do SLOW. 

Como sugestão proporia que publicasse, também, es¬ 
quema para se adaptar um ou dois joysticks (afinal a 
MICRODIGITAL tem que vendê-los, não?) no 
NEZ-8000 ou TK82C e modificação do fundo e caracte¬ 
res no vídeo (de preto e branco, respectivamente no 
NEZ-8000 para branco e preto e vice-versa no TK82C). 

Sérgio R.M. Ferreira — Santos/SP 


Caro Sérgio 

Calma! A maioria de suas dúvidas já foi esclarecida na 
resposta à carta do José Daniel. Apenas queremos acres¬ 
centar duas coisas: 

1) Este tipo de cobrança é muito bom (mesmo que nós 
sejamos o alvo), pois o consumidor brasileiro não está 
acostumado a estrilar para fazer valer seus direitos. 

2) A MICROMEGA, que edita a revista MICROHOBBY 
não é da MICRODIGITAL, apesar de manter um estrei¬ 
to relacionamento com esta firma, por estar publicando 

uma revista do interesse de seus clientes. O teor de sua 

> 
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carta sugere uma interdependência que na realidade não 
existe. De qualquer forma passamos uma cópia de sua 
carta para a MICRODIGITAL, pois sua sugestão de 2 
joysticks é bem interessante. 

O 

Prezados Senhores, 

Com prazer, acuso o recebimento e agradeço o envio 
do nQ 1 de MICROHOBBY, a revista dos Usuários do 
TK. 

Valeu a pena esperar. A revista está sensacional em to¬ 
dos os aspectos. Uma curiosidade: alguém da Equipe é 
professor? Por favor, não estranhem a pergunta; é que 
eu sou, e a linguagem da Revista, tão didática, precisa e 
bem humorada, me soou "algo familiar". .. 

Assim sendo, somente posso aplaudir com entusiasmo 
o surgimento desta publicação, que tenho a certeza, 
muito virá acrescentar e a enriquecer tudo o que já exis¬ 
te entre nós sobre Informática. 

Gostaria de saber se já estão disponíveis os livros 
anunciados e, se já estiverem, seus preços e condições 
de compra. 

Aproveitando a ocasião, desejo submeter à considera¬ 
ção de V. Sas. duas dúvidas relacionadas a programas: 

1) Em uma fita da Kristian chamada SPACE RAID, no¬ 
tei a presença de uma instrução REM enorme (toma 
quase a tela toda), cheia de caracteres (aparentemente) 
sem sentido. O que pode ser isto? 

'2) Outra fita, da MICROSOFT, chamada "Demolidor", 
apresenta problemas ao se tentar carregá-la: quase sem¬ 
pre, ao fina! do carregamento, a tela fica cheia de listas 
irregulares ou se apaga, obrigando, em ambos os casos, 
a desligar momentaneamente o computador, para que 
as coisas voltem ao normal, isto é, retorne o K. Se pos¬ 
sível, gostaria de uma palavrinha sobre isso. 

No mais, é aguardar (ansiosamente) o nQ 2 e reiterar 
meus mais entusiásticos votos de crescimento e pros¬ 
peridade para a Revista. 

Seja bem vinda, M/CROHOBBY\ 

Theodomiro Aguiar (Petrópolis — RJ) 

Prezado Prof. Theodomiro, 

Realmente na equipe temos dois professores, o 
PIERLUIGI e o FLAVIO, ambos extremamente bem 
humorados (apesar das fitas-brinde) e estamos em vias 
de aumentar a equipe com mais um. Isto não é mera 
coincidência ou uma espécie de "máfia pedagógica", 
mas faz parte da própria filosofia desta publicação: nos¬ 


sa finalidade não é apenas "informar", mas principal¬ 
mente ensinar. Daí o cunho mais didático que jornalísti¬ 
co. Os livros anunciados estão em fase final de proces¬ 
samento gráfico e brevemente serão lançados no merca¬ 
do. 

Com relação às dúvidas sobre programas: 

1) A gigantesca instrução REM na fita da Kristian arma¬ 
zena uma sequência de bytes que constitui uma subroti- 
na em linguagem de máquina. A leitura de "LIFE" e 
"APAGANDO A TELA" publicados neste número escla¬ 
recerão melhor. 

2) A fita deve estar com defeito ou sofreu, após sua pro¬ 
dução, algum acidente magnético. Escreva à MICRO¬ 
SOFT, informando-se sobre a possibilidade de troca. 

Finalmente, obrigado pelas boas-vindas. 

O 

Prezados Senhores, 

Não gostei muito do 19 número da revista MICRO¬ 
HOBBY. Achei-a muito pequena e incompleta, apenas 
16 páginas. A seção de DICAS, a meu ver, estava fraca 
e não achei nada sobre a seção HOBBY. Envio um pro¬ 
grama de minha autoria na esperança de que a revista 
melhore, principalmente que ela cresça no tamanho. 
Trata-se do conhecido "Jogo da Forca" e ocupa quase 
3 K bytes. Aproveitando esta envio algumas perguntas: 
A impressora usada pelo TK82C é de boa qualidade? 

Ela imprime todo tipo de símbolos gráficos? 

Ela usa papel especial? 

Como é feita a impressão? 

0 que significa e/etro-sensível? 

A impressora necessita de interface? 

Há necessidade de alguma modificação no computador? 
Se houver quanto custa e quanto tempo leva? 

Fernando Araújo Lppes (São Paulo — SP) 


Caro Fernando, 

Como você pode ver a revista já cresceu bastante, gra¬ 
ças a pessoas como você ou o Sérgio que apesar de não 
gostarem do começo e não confiarem muito, nos deram 
uma força e permitiram que a revista melhorasse cada 
vez mais. 

Infelizmente não podemos aproveitar o seu "Jogo da 
Forca", pois as gavetas da redação transbordam com os 
"Jogos da Forca" já enviados. Queremos aproveitar a 
oportunidade para avisar o pessoal: 

Forca 

Senha 

Velha 

Invasores 

não serão mais publicados, tá?! 

Respondendo a suas perguntas: 

A impressora usada pelo TK (por enquanto a versão 
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inglesa, enquanto a brasileira tiver dificuldades de im¬ 
portação de peças) é de boa qualidade, imprime todos os 
símbolos que aparecem na tela e algo mais (veja "GRÁ¬ 
FICOS EM ALTA RESOLUÇÃO no nP 2). O papel é 
especial: ele é revestido por uma finíssima camada metá¬ 
lica sobre um fundo escuro. 

Um estilete o percorre em alta velocidade. Como o 
papel é condutor de eletricidade, quando no estilete é 
aplicado uma tensão elétrica, dele salta uma faixa que 
faz o revestimento metálico se evaporar num ponto. Sob 
este ponto aparece o fundo escuro. Todas as cópias dos 
programas editados nesta revista são tiradas numa im¬ 
pressora deste tipo. 0 TK aceita esta impressora direta¬ 
mente na conexão da expansão de memória. Como a co¬ 
nexão da impressora é do tipo macho de um lado e fê¬ 
mea do outro, a expansão de memória pode ser ligada 
ao computador simultaneamente com a impressora. Já o 
CP 200 e o NEZ8000 da PROLOGICA precisam de uma 
pequena adaptação, pois em sua fabricação foram utili¬ 
zados conectores traseiros incompatíveis com os equipa¬ 
mentos SINCLAIR. 

Temos notícias, inclusive, que dão conta de uma pró¬ 
xima fabricação de interfaces que permitirão conectar os 
TKs com as impressoras nacionais usando papel comum. 
Obviamente estas impressoras são muito mais caras. 


Prezados Senhores, 

Meu nome é Marcelo Arouca Araújo e tenho 14 anos. 
Eu sou fã de eletrônica e de computação, sei um pouco 
das duas. Quando comprei o meu computador, pensei 
em fazer um curso de BASIC, mas depois resolvi apren¬ 
der sozinho, apenas olhando o manual que vem junto. 
Eu sei alguma coisa, mas isso não é suficiente ainda para 
poder fazer programas complicados, por isso eu mando 
para vocês este programa simples. Com o tempo eu espe¬ 
ro melhorar e poder mandar programas à altura desta 
revista. 

Eu gostei muito da primeira aula e das DICAS. Com a 
primeira aula da revista aprendi com mais detalhes o que 
eu já sabia, mais ou menos. 

O programa que mando para vocês é muito famoso, 
chama-se Forca. 


Caro Marcelo, 

Se você der uma lida nas outras cartas verá que não 
publicamos Jogo da Forca. Apesar disto ficaremos mui¬ 
to felizes em receber outras colaborações suas. Mesmo 
programas "simples" podem ser muito úteis e neste caso 
serão impressos. Temos certeza, também, que logo logo 
você estará desenvolvendo coisas em nível "profissio- 
nar. 

O 


Prezados Senhores, 

Tudo muito bem, tudo muito ótimo. Mas será que 
não esqueceram algo? Se não me engano, eu deveria re¬ 
ceber uma ou duas fitas justamente pelo fato de ser as¬ 
sinante desta (brilhante) revista. 

A propósito: Será que os senhores poderiam enviar 
maiores detalhes sobre 'TIG-LOADER"? (pág. 11 - 
nQ 1), ou deveria escrever para tal firma? 

Roberto Araújo (Rio de Janeiro — RJ) 


Caro Dr. Roberto, 

A fita é só uma (com dois jogos) e já foi enviada. Des¬ 
culpe pelo atraso. Com relação ao TIG-LOADER, aqui 
na redação testamos um protótipo, mas não temos maio¬ 
res detalhes técnicos ou comerciais. Acho que a solução 
é escrever para a firma. 

Um abraço. 


Caro Editor, 

Recebi meu 19 número da revista Microhobby e gos¬ 
tei muito. 

Aproveitei todos os programas, principalmente o utili¬ 
tário. Gostaria de sugerir que fosse este transformado 
em linguagem de máquina. 

Gostaria de saber em que livraria ou representante do 
TK, na região de Campinas, poderia encontrar as novi¬ 
dades anunciadas na página 12. 

A única coisa que me entristeceu ao receber este nú¬ 
mero foi a falta de tão decantada fita com os jogos, por 
isso, peço ao senhor a gentileza de enviar-me uma fita, 
pois não gostaria de começar mal a minha coleção. 

Cláudio S. Tonhetta (Sumaré — SP) 


Prezado Cláudio, 

Os livros anunciados serão lançados brevemente, pois 
estão na fase final de processamento. A fita já foi envia¬ 
da e com relação à transformação do programa do 
BASIC para ASSEMBLV temos uma sugestão. Estude 
com cuidado as lições que estamos publicando e logo 
você estará em condições de fazer isto sozinho. Quan¬ 
do isto acontecer publicaremos seu programa com mui¬ 
to prazer (e muito orgulho). 


MICROHOBBY 5 











MAIS TRADUÇÕES 
PARA O BASIC TK 

Igor Sartoni 


No número anterior de nossa revista falamos sobre a 
instrução IF THEN ELSE . . . , comum a vários 
computadores, mas que, por razões construtivas, não foi 
incluída no conjunto de instruções do TK. Todavia, com 
um pouco de imaginação, conseguimos contornar o pro¬ 
blema. Sabemos que esta não é a única instrução que 
não faz parte dos recursos do TK e de computadores si¬ 
milares. Além disso, é comum em alguns computadores, 
como, por exemplo, no TRS-80, o uso de instruções 
IF THEN . ELSE encadeadas, o que pode dificul¬ 
tar a tradução de um programa para outro. 

Condicionais Encadeadas 

Chamamos de condicionais encadeadas duas ou mais 
instruções IF THEN . ELSE . dispostas de tal 
forma que uma condicional permite ou não o acesso a 
uma outra condicional, com a seguinte estrutura: 

IF ! (condição 1) THEN IF 2 (condição 2) 
THEN IF n (condição n) THEN (função ou operação 
n + 1) ELSEn (função ou operação n) . . . ELSE 2 (fun¬ 
ção ou operação 2) ELSEt (função ou operação 1). 


Por exemplo: 


10 IF X = 0 THEN IF Y = 0 THEN IF Z = 
0 THEN LET A = 0 ELSE LET A = 1 ELSE LET B 
= 1 ELSE LET C = 1 


Este tipo de estrutura pode ser compreendido como 
uma operação matemática com diversos níveis de paren- 
teses. Assim, a primeira condicional IF "fecha" com a 
última condicional ELSE, a segunda com o penúltimo, 
e assim por diante. 

Levando isso em consideração, podemos "quebrar" 
esta linha de programa em três partes: 


1 ) IF X = 0 THEN ELSE LET C = 1 


2) IF Y = 0 THEN ELSE LET B=1 
IF Z = 0 THEN LET A = 0 ELSE LET A = 1 

> 
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Se você observar bem, o que isto pode significar é que 
podemos transformar esta linha de programa em outras 
três, desde que consigamos preencher o espaço em bran¬ 
co entre as palavras THEN e ELSE. 

Para preencher este espaço, devemos nos lembrar o 
que uma instrução desta natureza faz. A primeira coisa 
que devemos levar em conta é que, nesta linha de pro¬ 
grama, se a condição X = 0 for satisfeita, a condição 
Y = 0 deve ser verificada. Do mesmo modo, se a condi¬ 
ção Y = 0 for satisfeita, deve-se verificar a condição 
Z = 0. 

Ass/m. o que devemos fazer após verificar uma dada 
condição é verificar a condição seguinte. Levando isso 
em conta, a linha de programa em questão pode ser rees¬ 
crita da seguinte forma: 


10 IF X = 0 THEN GOTO 20 ELSE LET C = 1 

20 IF Y = 0 THEN GOTO 30 ELSE LET B = 1 

30 IF Z = 0 THEN LET A = 0 ELSE LET A = 1 


40 . (sequência do programa). 

Existe um pequeno problema, que deve ser contor¬ 
nado: ao completarmos uma linha em um programa em 
BASIC, o computador executará imediatamente a linha 
seguinte. Entretanto, a linha seguinte contém uma com¬ 
paração que só deve ser feita se e somente se a compa¬ 
ração anterior for verdadeira. Da forma em que se 
encontra a nossa solução, se a primeira condição for ver¬ 
dadeira, a segunda condição é verificada. Se for falsa, C 
é igualado a 1 e a segunda condição é verificada, coisa 
que não queremos. Para que isso não ocorra, devemos 
desviar da linha que contém a comparação seguinte por 
meio de um desvio incondicional. Assim; 


10 IF X * 0 THEN GOTO 20 ELSE LET C = 1 
15 GOTO 40 

20 IF Y = 0 THEN GOTO 30 ELSE LET B = 1 
25 GOTO 40 

30 IF Z = 0 THEN LET A = 0 ELSE LET A = 1 

40 . . . (sequência do programa) 


Resta mais um problema: a condicional ELSE. Para 
resolver este problema, recorreremos a uma das soluções 
que indicamos no artigo que publicamos no número an¬ 
terior desta revista. Assim, por exemplo, o trecho onde 
aparecem as linhas 10 e 15 ficará: 


10 IF X= 0 THEN GOTO 20 
12 IF XO 0 THEN LET C = 1 
15 GOTO 40 

Da mesma forma, poderemos aplicar esta solução para 
as outras linhas do programa, onde aparecem condicio¬ 
nais ELSE. 


INPUT múltiplo e com mensagens 

Algumas vezes encontramos, em alguns programas de¬ 
senvolvidos para outros computadores, INPUT em que 
são pedidas mais de uma variável e, além de tudo, apare¬ 
ce uma mensagem qualquer, por exemplo: 

10 INPUT "ENTRE COM OS VALORES DE 
A E B", A.B 

Quando aparecer um INPUT com mensagens, o com¬ 
putador primeiro imprimirá a mensagem e ficará aguar¬ 
dando a introdução dos valores. No nosso exemplo, são 
apenas dois valores. Devemos digitar o primeiro valor pe¬ 
dido, uma vírgula e o segundo valor pedido, e, então, 
digitar ENTER 

No TK e em computadores semelhantes, tanto há 
mensagem como várias variáveis de entrada não podem 
ser digitadas na mesma linha. A solução é decompor es¬ 
ta instrução em várias outras, levando em consideração 
também que, numa instrução INPUT, em alguns com¬ 
putadores diferentes do TK, uma vez digitada a tecla 
ENTER, o valor digitado é impresso imediatamente. 

Tendo isto em mente, podemos reescrevera linha em 
questão da seguinte maneira: 


2 PRINT "ENTRE COM OS VALORES DE 

A E B" 

3 INPUT A 

4 PRINT A 

5 INPUT B 
10 PRINT B 


Nem a disposição das variáveis nem a mensagem preci¬ 
sam ser rejeitadas. O melhor que devemos fazer é adap¬ 
tar o trecho do programa às nossas necessidades e com o 
nosso gosto. Assim, poderemos, por exemplo, dar a se¬ 
guinte forma ao trecho de programa em questão: 

10 PRINT "QUAL O VALOR DE A?" 

20 INPUT A 

30 PRINT A 

40 PRINT "QUAL O VALOR DE B?"; 

50 INPUT B 

60 PRINT B 

> 
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ou ainda: 

10 PRINT "A = ”, 
20 INPUTA 
30 PRINT A 


ON A GOTO n9 de linha 1, n9 de linha 2, n9 de linha 3 
.. . n9 de linha n. 


A instrução ON A GOTO tem como função enviar o 
programa para uma entre várias alternativas dadas por 
uma condição, representada por uma variável inteira, 
cujo nome é escrito por uma única letra (por exemplo, 
K). Por exemplo, na linha de programa: 

10 ON CGOTO 100, 230, 350 

Se C for 1,o computador vai executar a linha 100; se 
for 2, 230 e, se 3, 350. Se C for menor do que 1 ou 
maior do que n (no caso, 3), o programa vai para a linha 
seguinte. Os números de linha não precisam estar em se¬ 
quência. Assim: 

100 ON G GOTO 400, 10, 350 

Se G for 1, o programa irá para a linha 400, se for 2, 
para linha 10 e se for 3, para linha 350. 

Se você quiser usar este recurso em seu TK você po¬ 
derá usar um dos ”macetes que mostraremos a seguir”. 


19 caso: o programa original apresenta os números de 
linha após o GOTO numa sequência crescente de 
múltiplos de um mesmo número inteiro. 

Suponha que o programa que você quer ”traduzir” 
para seu computador tenha a seguinte linha: 

50 ON A GOTO 100, 200, 300 

Note que os números de linha estão numa sequência 
crescente de números inteiros, todos múltiplos de 100. 
Para este caso, podemos usar: 

50 GOTO 100* A 

60 . . . (sequência do programa) 

Todavia, a instrução ON A GOTO . . faz ainda outra 
coisa: se A for menor que 1 ou maior que 3, o compu¬ 
tador executará a linha seguinte. Para completar o traba¬ 
lho, devemos acrescentar a linha: 

45 IF A < 1 OR A > 3 GOTO 60 


29 caso: o programa original apresenta quaisquer 
números de linha após o GOTO. 

Quando o programa original apresenta quaisquer nú¬ 
meros de linha após o GOTO só podemos lançar mão de 
condicionais do tipo IF . THEN Isto é possível por¬ 
que o A ou a variável que indica o desvio pode ser enca¬ 
rada como uma variável que deve atender a uma dentre 
n condições. Por exemplo, a linha: 

50 ON JGOTO 80, 10, 70 
Poderá ser escrita como: 

50 IF J = 1 THEN GOTO 80 

55 IF J = 2 THEN GOTO 10 

57 IF J= 3 THEN GOTO 70 

60 . . . (sequência do programa) 


Neste caso, não é necessário acrescentar nenhuma li¬ 
nha referente à comparação com valores menores que 1 
e maiores que n, pois o programa segue automaticamen¬ 
te para a linha seguinte, após passar por todas as compa¬ 
rações. 


Conclusão 

Existem muitos outros problemas encontrados por 
quem deseja rodar um programa de outro computador 
no TK ou em computadores com a mesma lógica. Ainda 
existem outras instruções que podem ser encontradas 
em outros computadores e não no TK (ou encontradas 
sob uma sintaxe diferente) e muitas delas poderão ser fa¬ 
cilmente implementadas no seu computador. A recípro¬ 
ca também é verdadeira. Existem funções que aparecem 
no TK e não aparece em outros computadores, que obri¬ 
gam seus usuários a lançar mão de outros recursos para 
contornar o problema. Um exemplo típico é a função 
PAUSE que normalmente não é encontrada em outros 
computadores. 

Isso não torna o BASIC do TK inferior ao dos demais 
computadores, pois cada fabricante deu uma prioridade 
diferente ao seu projeto. No caso do TK, a orientação 
foi torná-lo compacto e a um preço acessível, com um 
hardware mínimo. 0 resultado foi uma linguagem 
BASIC um pouco diferente das demais, contendo instru¬ 
ções completas em cada tecla, ocupando um pequeno 
espaço na memória de programa. 

Por outro lado, esta série de artigos será aberta à su¬ 
gestões. Se você deparar com um programa de um outro 
computador que não conseguir traduzir, envie-nos uma 
cópia, citando a marca e o modelo do computador e a 
instrução que lhe causou problemas. Se for possível uma 
tradução, a instrução em questão poderá ser objeto de 
um futuro artigo. 

o 
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VERBATIM ' 


PRODUZIDO NA ZONA FRANCA 
DE MANAUS SIGNIFICA: 
QUALIDADE COM 5 ANOS 
DE GARANTIA E O MELHOR 
PRECO DO MERCADO. 


DATALIFE " diskettes são produzidos com uma única 
preocupação: o armazenamento de dados sem erros. 

Esse comprometimento requer precisas técnicas 
de produção e rigoroso controle de qualidade. 

DATALIFE " diskettes 8 ou 5 1 /4 polegadas tem 
certificação 100% sem erros. 

A diferença DATALIFE " é pura e simplesmente qualidade. 


ENTREGA IMEDIATA 


FD 34-9000 

simples face/simples densidade 

26 setores 128 bytes/setor 8 polegadas 

FD 34 8000 

simples tace/dupla densidade 

Não setorizado não formatado 8 polegadas 

DD 34 4026 

dupla face/dupla densidade 

26 setores 256 bytes/setor 8 polegadas 

DD 34 4001 

dupla face/dupla densidade Não setorizado 
não formatado 8 polegadas 


Entrega a partir de setembro 1 983 


MD 525-01 

simples face/dupla densidade 

5 1/ 4 polegadas 

MD 550-01 

dupla face/dupla densidade 5 1.4 polegadas 


Em embalagem de cartão com 10 unidades 
Caixas plásticas opcionais 


PARA ENCOMENDAS FORA DE SÃO PAULO, 
Revendedores e Fabricantes interessados. A MEMPH/S PAGA A LIGAÇÃO, 

tel: (011) 262-5332 DISQUE (011) 900-8462 


Distribuidor: DleilipIllS 

Indústria e Comércio Ltda. 

Av. Arnolfo de Azevedo, 108 - Pacaembu - São Paulo - Brasil 
CEP 01236 - PABX (011) 262-5577 - Telex (011) 34545 
Filial Rio: Praia do Flamengo, 66 cj: 1519 Tel: (021) 205-3849 - 225-3469 
Matriz: Av. Angélica, 35 - Sta. Cecília - São Paulo - Brasil - CEP 01227 

















MATEMATICA FINANCEIRA 
EM BASIC TK 


Flavio Rossini 



Muitas pessoas se lamentam da falta de comandos es¬ 
pecíficos em BASIC que tornem as "entradas*' e "saí¬ 
das" de dados numéricos compatíveis com o padrão uti¬ 
lizado em aritmética financeira, ou seja, números encos¬ 
tados à direita (e não à esquerda), com duas casas depois 
da vírgula (e não ponto) e com um ponto entre cada 3 
algarismos. De fato, é desagradável ver os "milhões" na 
mesma coluna dos "milhares" ou então ver dados com 
milésimos de cruzeiros. 

Cr$ 1934.8769 
Cr$ 7.9815 
Cr$ 299873.4 
Cr$ 9 

CrS 10.056 

Apesar de outras linguagens como o FORTRAN, e 
principalmente o COBOL, fornecem facilidades para o 
manuseio de números nestes formatos, em BASIC isto 
também é possível. . . 

.Para tanto, desenvolvi duas subrotinas em BASIC para 
o TK que executam, respectivamente, a "entrada" e 
"saída" de dados no padrão financeiro. Analizemos, pri¬ 
meiramente a entrada de dados; ela deve aceitar núme¬ 
ros com e por exemplo: 

1.345.003,37 


e transformá-lo para a maneira que o computador está 
"acostumado" para a execução de cálculos, ou seja: 


1345003.37 


Assim temos: 


990 REM ífPLRUIO ROSSINI 1983f* 
995 REM SR P/ENTRRDR DE DRDOS 
CS FORMRTO FINRNCEIRO 
1000 FRST 
1005 INPUT R$ 

1010 LET L =LEN R$ 

1015 DIM B$ (L ) 

1020 FOR U=1 TO L 

1025 IF R$ÍU) <>•*•- THEN LET B$(U 
)=R$(U) 

1030 IF R$(U) =••/* THEN LET B$ (U) 

_ II M 

1035 NEXT U 
1040 LET N=URL 
1050 RETURN 

fig. 1 

Esta subrotina simplesmente retira todos os "." do 
dado entrado e substitui a por um deixando o 
valor numérico para cálculos na variável N. 

A subrotina para executar a "saída" de dados, ou se¬ 
ja, transformar um número no formato do computador 
para o formato financeiro, é bem mais complexo. Ela 
consta de três módulos básicos: 

a) ajustar o número para duas "casas" após o " " (que 
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será substituído por uma vírgula) para os três casos pos¬ 
síveis: nenhuma casa após o (variável inteira) , uma 
casa após o e duas ou mais casas após o 

b) colocar um "." entre cada 3 algarismos antes da vírgu¬ 
la 

c) imprimir o número encostando-o à direita na vigésima 
coluna. 


1090 REM ^íFLflvIO ROSSINI 1983** 
1095 REM SR P/SRIE'R DE DRDOS 
C/FORMflTO FINANCEIRO 
1100 FfiST 

1105 REM MODULO R 
1110 LET N$=STR$ N 
1115 LET LxLEN N$ 

1120 FOR U = 1 TO L 

1125 IF N$ÍU> =". M T HEM GOTO 114-0 

113© NEXT U 

1135 LET M$=N$+ ©0' f 

114.0 LET N$ CU? =" , “ 

114-5 LET N$sN$ + ”&’* 

1150 LET L=U+2 

1155 LET N$=N$C TO L) 

1160 REM MODULO B 
1165 LET L=L~3 
1170 LET L=L~3 

1175 IF L <=0 THEN G OTO 1210 
1160 LET C$=N$( TO L) 

1185 LET N$(L3 

1190 LET N$=N$CL TO ) 

1195 LET N$=C$+N$ 

120© GOTO 117© 

1205 REM MODULO C 

1210 PRINT ”CR $ ”;TRB Í21-L) ;N$ 

122© 5LOU 
1225 RETURN 

tig. 2 


105 PRUSE 120 
110 CLS 
115 NEXT I 
120 FOR 1=1 TO 3 

125 LET LUCRO=CK(1,2)*0.©1)*KCl 
1) 

130 PRINT “PRODUTO 

135 LET N stK (1,1) +LUCRO 

14-0 PRINT TRB 5; M PRECO DE VENDfi 

14.5 GOSUB SR IF IN 

150 LET NsLUCRO 

155 PRINT TRB 5; ,, LUCRO” 

160 GOSUB SflIFIN 

165 PRINT 

17© NEXT I 

175 PRINT 

18© PRINT “BFE" 

190 ST OP 

maaiÊÊÊÊÊiÊÊÊÊÊBmÊÊÊÊÊÊÊmÊÊÊiÊimÊÊÊm 

EXEMPLO: 

NOME DO PRODUTO 1 7 
ABACAXI 

PRECO DE CUSTO 7 
CR $ 56© 

PORCEHTRGEM DE LUCRO 7 
71,87 POR CENTO 


PRODUTO ABACAXI 

PRECO DE UENDA 

CR $ 962,4-7 

LUCRO 

CR $ 4-02,4-7 

PRODUTO BANANA 

PRECO DE UENDfí 
CR$ 619,9© 

LUCRO 

CR $ 262,4-0 


0 número a ser colocado deve ser colocado na variá¬ 
vel N. A título de exemplo, vamos apresentar um peque¬ 
no programa que utiliza estas subrotinas; você fornece o 
preço de custo de 3 produtos e a porcentagem de lucro 
desejada para cada um e ele fornece o preço de venda e 
o lucro . . . 


5 REM **FLAUIG ROSSINI 1983** 
10 REM EXEMPLO DE APLICACAO PR 
RR 5USROTINAS FINRNCEIRRS 
20 SLOIJ 

25 LET ENTFIN=1000 
30 LET SAIFIN=1100 
35 DIM P$( 3,14.) 

4-0 DIM K (3,2) 

4-5 FOR 1 = 1 TO 3 

50 PRINT -NOME DO PRODUTO ”;I, 

7 ** 

55 INPUT PsMI) 

6© PRINT P$<I) 

65 PRINT ‘PRECO DE CUSTO 7" 

70 GOSUB ENTFIN 
75 LET K Cl, 1) =N 
80 PRINT **CR$ -;R$ 

85 PRINT "PORCENTAGEM DE LUCRO 
7 " 

90 GOSUB ENTFIN 
95 LET K (1,2) =N 
1©0 PRINT R*; “ POR CENTO*' 


PRODUTO CAUIAR 

PRECO DE UENDA 

CR$ 27.268,37 

LUCRO 

18.280,77 


3FE 


fig. 3 


Note que as subrotinas utilizadas apenas "truncam” 
as duas casas depois da vírgula; se for necessário um "ar¬ 
redondamento" do resultado, bastaria, por exemplo, an¬ 
tes de entrar no módulo B da subrotina de saída, restar 
o valor do caractere N$ (L+1); se VAL NS (L+1) for 
maior do que 5, basta somar 0,01 ào resultado; caso 
contrário, nenhuma providência deverá ser tomada. Ten¬ 
te fazer isto. é um bom exercício e o ajudará a entender 
as subrotinas aqui apresentadas 

O 
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COMO COLABORAR 
COM MICROHOBBY 


A revista MICROHOBBY foi criada para servir de in¬ 
tercâmbio entre os leitores que participam do mágico 
mundo da computação. 

A característica realmente inovadora do computador 
pessoal, está em transformar cada consumidor num cria¬ 
dor. Aproveite sua criatividade e envie suas colabora¬ 
ções, recebendo remuneração a título de DIREITO 
AUTORAL. 

Se o material enviado for aprovado para publicação, 
a remuneração será de Cr$ 10.000,00 por programa. Se 
o programa for muito bom e muito extenso esta quantia 
será aumentada, a critério da redação, até Cr$ 30.000,00. 
Esta remuneração será oferecida também para artigos 
interessantes sobre o mundo do TK. 

A maneira ideal de nos enviar o material a ser publi¬ 
cado obedece às seguintes normas: 

1 ) Nunca esquecer de colocar nome completo, endereço 
e número de sua assinatura em todo material enviado (fi¬ 
tas, listagens de impressora, envelope, carta, etc). 

2) Enviar a listagem de programa datilografada ou, me¬ 
lhor ainda, tirada na impressora do TK. 

3) Colocar sempre uma linha REM com o nome do autor 
e o título do programa 

4) Enviar uma fita com o programa gravado algumas ve¬ 
zes (se possível em gravadores diferentes). 

5) Na fita, gravar com microfone (em viva voz), algumas 
instruções úteis, nome completo e endereço do reme¬ 
tente. 


O material não utilizado não será devolvido Esta é 
uma norma corrente em quase todas as revistas do mun¬ 
do, que gera porém, uma certa desconfiança: "e se apa¬ 
garem meu nome do programa e o publicarem sem me 
remunerar?" 

Neste ponto podemos sugerir o seguinte 

Ao enviar o material para qualquer revista, você, ou 
confia em sua seriedade, ou, é melhor não enviar o ma¬ 
terial, reservando-o para uma publicação digna de seu 
crédito. 

Uma outra saída é a de tirar uma cópia de todo ma¬ 
terial enviado e registrá-lo em cartório, para qualquer 
reclamação posterior. Obviamente tal procedimento só é 
aconselhável se o material enviado for valioso a ponto de 
justificar toda essa mão-de-obra. 


6) O material deve ser enviado para: 

MICROMEGA P M.D. Ltda. 

PROGRAMAS DO LEITOR 

Cx. POSTAL: 60081 

CEP: 05096 - S. PAULO - SP 

7) Qualquer dúvida, poderá ser esclarecida pelo telefone: 

(011) 257-5767 com Roberto. 

Aguardamos sua colaboração. 

O 


DESGRILANDO 


Prezados Senhores , 

Se há um programa na memória do computador e eu 
dou LOAD, para procurar um programa numa fita. 
O programa anterior se apagará? Parcial ou total mente? 
O programa da fita se carregará automáticamente? 

Jaime Jacobson 

Caro Jaime, 

Ao dar o LOAD o programa que está na RAM é apa¬ 
gado totalmente para dar lugar ao novo. Se o novo não 
estiver em boas condições você fica com o computador 
vazio. 



Nisso é que reside a grande vantagem da função 
VERIFY do TK85: após gravar uma fita você entra com 
o programa, mas sem dar um LOAD. Se o programa gra¬ 
vado conferir com o original da RAM o computador 
acusará OK e você poderá desligá-lo tranquilamente. 

O programa da fita carrega-se automaticamente se vo¬ 
cê digitar seu nome. Por exemplo, se você tiver vários 
programas gravados numa única fita e der o comando. 
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LOAD "FORCA'" 

Com o gravador na posição PLAY, a fita correrá sem 
que o gravador aceite os programas que passam. Ao re¬ 
ceber, porém, uma sequência correspondente a um pro¬ 
grama que foi gravado por um: 

SAVE "FORCA" 

o computador carregará sua RAM com ela. 

Prezados Senhores, 

No programa Barão Vermelho , da página nP 5, da Re¬ 
vista dos Usuários do TK nP 0, há a Unha 180 que usa 
as funções PEEK, ou seja: 180 IF PEEK fPEEK 
16398 +256 X PEEK 16399)= 128 THEN GOTO 310. 
Qual é o significado destas instruções? 

Na Unha 215 e 240 trabalham com SGN que é outra 
dúvida. 

Eulálio Alves da Silva (Porto Velho - RO) 

Caro Eulálio, 

Os endereços 16398 e 16399 contém dois bytes que 
indicam uma variável do sistema denominada POSPR 
Esta variável, por sua vez, indica a posição do PRINT no 
arquivo de imagem. Para uma explicação detalhada, po¬ 
rém, seria interessante que você acompanhasse uma ma¬ 
téria a ser publicada no número 4, justamente sobre a 
organização da memória do TK. 

Por outro lado, a função SGN (tecla F) é fácil de ser 
explicada. Ela assume o valor +1 se seu argumento é um 
número positivo qualquer, —1 se for negativo e 0 se for 
nulo. 

Experimente fazer no seu computador o seguinte pro- 


graminha: 



ie 

£>IM 

Pi* f 3,10) 


20 

LET 

R* (1) = M SGN 

89" 

30 

LET 

R * (2) =“5GN 

0“ 

4-0 

LET 

R * (3) = ** SGN 

—55’* 

50 

FOR 

1=1 TO 3 


60 

PRINT R* ( I) ; •* =• 

• ; URL 

70 

NEXT I 



Ele vai lhe explicar o SGN 

Prezados Senhores, 

. . . Como explicar o desempenho do programa "DEMO¬ 
LIDOR" da MICROSOFT num TK sem SLOW? Isto 
sempre me deixou bastante curioso .. . 

Luis Henrique B. de Miranda 


Caro Luis Henrique, 

A explicação é simples: um computador que trabalha 
em FAST não envia dados para a TV enquanto está pro¬ 
cessando, por isso "perde o controle" de imagem. Um 
computador com circuito de SLOW usa este circuito co¬ 
mo uma espécie de interruptor : enquanto a tela está sen¬ 
do formada pela varredura, o computador é obrigado a 
não processar, mantendo a formação da imagem sob 
controle. No breve intervalo de tempo entre o fim de 
uma imagem e o começo da seguinte há um lapso de 
tempo durante o qual ele processa os dados pois neste 
intervalo não há problema em não se enviar dados para a 
TV. 0 programa DEMOLIDOR é uma obra prima da 
acrobacia de programação: como cada instrução em lin¬ 
guagem de máquina tem um tempo de execução muito 
bem determinado, a sequência de instruções foi calcula¬ 
da de sorte a durar exatamente tanto quanto o lapso ci¬ 
tado. Ao terminar este lapso, o próprio programa faz o 
micro processador parar de processar durante a forma¬ 
ção de imagem. Note que, como o programa tem ramifi¬ 
cações, este cálculo foi feito para todas elas. 

Em resumo, "DEMOLIDOR" é um programa que tra¬ 
balha aos 'soluços ' em perfeita sincronia com a varredu¬ 
ra da TV, simulando um SLOW por "software". 

O 


■=== LANÇAMENTO . 

PASSAGEM PARA O INFINITO 

Sensacional jogo onde voce tentará encontrar e sair com um fabuloso tesouro em um 
complexo labirinto, guardado por terríveis polvos monstros, e com mais de 400 pas 
sos Para ajudá lo. voce contará com algumas espadas, que garantiráo sua sobrevi 
vència na luta com os monstros, e com os prisioneiros encarcerados nas varias pas 
sagens que lhe indicarão o caminho a seguir Totalmente em linguagem de maquina 
com gráficos fantasticamente animados e tres níveis de dificuldade para desafia lo 
Preço Cr$ 7 000.00 

- MIDWAY - 

Uma grande guerra mundial esta sendo travada nas aguas do Atlântico Voce agora e 
o comandante do submarino atomico MIDWAY. sua missAo destruir todas as bases 
inimigas em águas brasileiras Cuidado com os navios, aviòes e minas espalhados pe 
los invasores Para auxiliá lo poderá contar com uma frota de navios de reabasteci 
mento, várias bases aliadas e um computador de bordo Um grande desafio com grá 
ficos e várias rotinas em linguagem de máquina Preço Cri 5 000.00 

-JORNADA NAS ESTRELAS - 

A sua nave interplanetária KNTRF.PRISE necessita livrar a galaxia dos invasores 
Klingon e você como comandante da nave terá a árdua missác de destrui los Um 
jogo famoso no mundo todo em uma de suas melhores versões pela Softkristian. com 
efeitos gráficos sensacionais Preçc Cri 5 OÒÕ.Ofl 

-8.* DIMENSÃO- 

Agora você já pode terumfltperamaemaeu microcomputador em2* DIMFNSAOdois 
Jogos agitadíssimos para testar sua coordenaçAo motora Em SPACE INVADER você 
tem os originais invasores atacando sua nave e em ASTEROID você deve pousar em um 
planeta e para tanto deverá ultrapassar os obstáculos que vêem á sua f rente tentando 
destrui lo Grandes jogos em linguagem de máquina Preço Cr| 5 000.00 

- VISITA AO CASSINO - 

Quatro grandes jogos em um sõ caça níqueis roleta 21 e perseguiçáo fatal fazem 
parte deste sensacional conjunto Todos os jogos com gráficos e rotinas em li nguagem 
de máquina, para você que gosta de apostar e torcer Preço Crg 5 000 00 

-10 JOGOS EXCITANTES PARA 1 K- 

Dez pequenos Jogos para você incrementar e aprender bastante os efeitos de progra 
maçáo de Jogos e trabalhos com video Se você náo dispõe da expansáo de 16 K já pode 
rá ter entretenimento com esta sensacional fita Se você Já dispõe de 16 K compre para 
incrementa los e terá excelentes jogos Preço Crg 4 000.00 


Compre corwsco de ouaiquer oade flo B>áS' sem 
despesas adiCKma^s enviando um cheque i^a 
do e nofnmai a xfiiSTiAN ElETRQNiCA Uda mào 
pieosa visan e garanta o 'ecetumenio de nosso 
.ntormalivo NOV-DADES KRiSTiAN lotatmente 
gratuilo 


Todas as fitas váo em embalagem lacrada, com gravaçáo profissional para sua garan¬ 
tia. a Krtstian trocará qualquer fita que seja enviada com defeitos de fabncaçáo 
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Programa do Mcs 

"LIFE" 

Simulação da Evolução 


Pierluigi Piazzi 

0 programa "LIFE" foi originalmente elaborado por 
John Conway da Universidade de Cambridge, Inglaterra 
em 1970. 

A versão que apresentamos foi adaptada para o TK 
por Flavio Rossini e encontra-se detalhada em seu livro 
"Introdução à Linguagem de Máquina para o TK". 

Vamos nos limitar a reproduzir aqui a listagem do 
programa sem entrar na discussão das instruções de seu 
Assembly. Se algum leitor estiver interessado nesta par¬ 
te, aconselhamos a leitura do capítulo XI do livro citado. 

Inicialmente vamos discutir o princípio do programa: 
num quadrado de 16x16 posições, nascem, se reprodu¬ 
zem e morrem células, representadas por um "O" (fig. 
D. 



EXEMPLO DE TELR 


1053 BYTES 

fig. 1 

Ao começar o programa produz uma primeira geração 
de células, distribuídas ao acaso em seu "habitat" de 
256 posições. A geração seguinte é então desenhada na 
tela obedecendo a certas regras "biológicas". 

Cada célula tem 8 vizinhas possíveis (fig. 2): 


1 

2 

3 

4 

0 

5 

6 

7 

8 


fig. 2 


1) As células que tiverem apenas 2 ou 3 vizinhas sobrevi¬ 
vem e aparecem na geração seguinte. As demais morrem. 

2) Todo espaço vazio que tiver exatamente 3 células vizi¬ 
nhas, gerará uma nova célula na geração seguinte. 

é interessante observar que o "habitat" é um espaço 
fechado sem limites, ou seja, a última fila embaixo é 
computada como adjacente à primeira fila de cima e à 
última coluna da direita é considerada adjacente à pri¬ 
meira da esquerda (fig. 3). 


vizinha de A 

Futuro nascimento 
“Sobreviverá (tem 2 vizinhas)/ 



1 

2 
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12 

13 
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16 
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fig. 3 


Em matemática, diríamos que o quadrado gerado na 
tela é topologicamente equivalente a uma esfera. Para 
entender melhor a analogia, você deve imaginar um ma- 
pa-mundi (fig. 4), onde o lado direito junta-se a seu lado 
esquerdo. 
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Qualquer outra observação a respeito da ''biologia" 
do programa torna-se ineficaz enquanto você não tiver 
digitado o programa que # em sua forma final, ocupa 
1053 bytes. 

19 Passo: digite o programa listado na figura 5, to¬ 
mando o cuidado de entrar com exatamente 142 pontos 
após o REM da linha 1. Por via das dúvidas salve-o em fi¬ 
ta para não ter que redigitar tudo se faltar energia elétri¬ 
ca. O programa em BASIC serve para inserir, no lugar de 
cada ponto, um valor correspondente ao código de má¬ 
quina. O primeiro ponto após o REM está no endereço 
16514 da memória, e o último no 16655. Esta inserção 
é feita através do comando POKE. 


«BBH MÊÊaÊÊÊÊÊÊÊÊÊÊÊKÊÊÊÊKÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊm 

PROGRRMR 1 

1 REM..... 

's^scròll.. 

10 PRINT "ENDEREÇO INICIPL 7 " 

£0 INPUT M 

30 PRINT M 

4-0 FOR I=H TO 16655 

50 INPUT P 

50 POKE I,P 

70 SCROLL 

50 PRINT I,P 

90 NEXT I 


fig. 5 


29 passo: com o programa 1 já digitado, dê um RUN 
O programa perguntará qual o endereço inicial, e você 
digitará 16514. 

A seguir a sucessão de bytes, escritos em forma deci¬ 
mal, listados na figura 6, deverá ser digitada (apertando- 
se NEW LINE após cada byte). Esta é a parte mais chata 
da história e aconselhamos leitor a achar um colabora¬ 
dor disposto a ditar a sequência e a conferir na tela. 

Lembra-se a Lei de Murphy? 

"Se alguma coisa tem a mais remota chance de dar er¬ 
rado, fatalmente dará errado". Consequentemente, em 
algum ponto desta enfadonha sequência você errará. 
Não entre em pânico. 

Procure o último endereço em que você digitou cor¬ 
retamente e anote-o. Digite STOP interrompendo o 
programa e dê um RUN. 

Neste momento parece que estou vendo a cara des¬ 
confiada do leitor: "Tem certeza que é RUN? Não vou 
perder tudo que digitei até agora?" 

Não, não vai perder: o POKE da linha 60 está reescre¬ 


vendo a linha 1, substituindo os pontos por caracteres 
correspondentes aos bytes do programa em linguagem 
de máquina. O RUN apaga as variáveis, mas não as linhas 
do programa. 

LISTRGEM DECIMRL DE "LIFE" 

15514- = 

15515= 

15515= 

15517= 

15518= 

15519= 

15520= 

15521= 

15522= 

15523= 

15524- = 

16525= 

16526= 

16527= 

16528= 

16529= 

16530= 

16531= 

16532= 

16533= 

16534- = 

16535= 

16536= 

16537= 

16538= 

16539= 

1654-0 = 

1654-1 = 

1654-2 = 

16543= 

16544= 

16545= 

16546= 

16547= 

16548= 

16549= 

16550= 

16551= 

16552= 

16553= 

16554= 

16555= 

16556= 

16557= 

16558= 

16559= 

16560= 

16561= 

16562= 

16563= 

16564= 

16565= 

16566= 

16567= 

16568= 

16569= 

16570= 

16571= 

16572= 

16573= 

16574= 

16575= 

16576= 

16577= 

15578= 

16579= 

16580= 

16581= 

16582= 

16583= 

16584= 


fig. 6 


>239 

16585=>14 

>1 

16586 = > 0 

>1 

16587 = > 209 

>16 

16588=>225 

>16 

16589=>126 

>255 

16590 = > 254 

>255 

16591= >127 

>24© 

16592=>48 

>14 

16593=>3 

>16 

16594=>35 

>6 

16595 = >24 

>16 

16596=>246 

>42 

16597=>229 

: >50 

16598= >235 

>64 

16599= >229 

>84 

16600=>17 

>93 

16601= >130 

>41 

16602= >64 

:>41 

16603=>26 

>25 

16604=>254 

>41 

16605=>14 

>41 

16606= >40 

>41 

16607 = >11 

>25 

16688=>19 

>34 

16609=>133 

>5© 

16610=>111 

>64 

16611= >126 

: > 124 

16612 = >254 

>254 

16613 = >180 

>196 

16614 = >32 

:>56 

16615 = > 243 

: >4 

16616= >12 

: > 62 

16617= > 24 

:> 130 

16618= >240 

:>24 

16619= >225 

:>2 

16620=>121 

:>62 

16621= >254 

= >128 

16622= >2 

= >215 

16623= >56 

: > 16 

16624=>15 

= >227 

16625=>254 

: >62 

16626 = > 4 

= >118 

16627 = > 48 

: >215 

16623 = >11 

= > 13 

16629= >254 

: >32 

16630= >3 

= >219 

16631= > 40 

= >201 

16632 = > 3 

= > 6 

16633=>126 

= > 0 

16634=>24 

= >17 

16635=>6 

= >0 

16636 = > 62 

= >117 

16637=>180 

= >42 

16638= >24 

= > 12 

16639= >2 

= >64 

16640= >62 

= >229 

16641= >128 

= >126 

16642= >227 

= >35 

16643=:- 119 

= >254 

16644 = > 35 

= >127 

16645=>227 

= >56 

16646= >35 

= >250 

16647 = > 229 

= >18 

16648= >125 

= >19 

16649=>167 

= >16 

16650=>32 

= >246 

16651= >189 

= >17 

16652 = > 225 

= >0 

16653=>225 

= >117 

16654 = > 201 

= >213 

16655 = > 0 
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Ao ser perguntado qual o endereço inicial digite o su¬ 
cessivo ao que você anotou e continue inserindo a lista. 

Quando aparecer o código: 

0/90 


Você pode ofertar NEW LINE e verá como a linha 1 mu¬ 
dou de aspecto: uma parte, inclusive, ficou invisível 
(fig. 7). 


ASPECTO DA LISTAGEM flPOS RODAR 
O PROGRAMA 1 

1 _REM LOAD "■ < ( COPV COPV LIS 
T :(/(EHRND??DP;PDP;6HRND? RETUR 
N CODE Sm VH/ MNOT t STOP Y 


OBS: NUNCA COMANDE "EDIT" PARA 
A LINHA X 


fig. 7 


Nunca, mas nunca mesmo, traga esta linha 1 para bai¬ 
xo com o comando EDIT. Se você acompanhar o nosso 
curso de Assembly, um dia verá o porquê. 

39 passo: apague todas as linhas do programa 1 
exceto a número 1, que contém a sequência em lingua¬ 
gem de máquina. Se você ficar aflito por apagar às cegas, 
digite LIST 2. 


PROGRAMA 2 

2*SLOU 
3 RAND 

4- LET MICROHOBBY =USR 16522 

5 LET MICROMEGft=U5R 16562 

6 GOTO 5 


fig. 8 


Agora digite o programa 2 (fig. 8). Se seu computador 
não tiver SLOW, digite o programa 2 na versão apresen¬ 
tada na figura 9. 


PROGRRMfi 2 P/OUEM TEM MAQUINA 
SEM "SLOU’* 


3 RRND 

4. LET MICROHOBBY=USR 

5 LET MICROMEGR =USR 

6 PAUSE 100 

7 GOTO 5 


16522 

16S62 


fig. 9 

A linha 4 chama, através da função USR a subrotina 
localizada na linha REM a partir do endereço 16522. 
Esta subrotina gera aleatoriamente a primeira geração de 
células (fig. 1). A seguir a linha 5 chama a subrotina que 
se inicia no endereço 16562. 

Esta subrotina impõe as "regras biológicas" para pro¬ 
duzir a geração seguinte. 


49 passo: digite RUN e fique observando o suceder-se 
de gerações. Quem não tem SLOW talvez tenha que ajus¬ 
tar um pouco o controle VERTICAL de sua TV: a tela 
ficará piscando mas não pulando. 

Se você quiser acompanhar passo a passo a "evolu¬ 
ção" de seus bichinhos, pode alterar o programa 2 como 
indicado na figura 10. Desta forma, para ver a geração 
seguinte basta pressionar NEW LINE. 


2BSLOU 
3 RAND 

<* LET M ICROHOBBY =USR 16522 

5 LET MICROMEGR=USR 16562 

6 INPUT A$ 

7 GOTO 5 


PROGRAMA PASSO-A-PASSO 


fig. 10 

59 passo: dê agora uma recordada sobre o que você 
aprendeu a respeito de Darwin. Veja como a situação 
inicial pode evoluir dando origem a uma extinção total 
ou a "espécies" estáveis. Ocasionalmente obtemos como 
resultado final formas "meta-estáveis" que oscilam entre 
duas possibilidades. 

Uma coisa muito interessante é se observar o desenro¬ 
lar da "evolução convergente". 

O tubarão, o golfinho, e o ictiossauro têm origens 
completamente diferentes: um é peixe, o segundo é ma¬ 
mífero e o terceiro é um réptil, (fig. 11). Ao se adapta¬ 
rem, porém, ao meio aquático ficaram submetidos a 
conjuntos similares de regras e acabaram evoluindo para 
formas semelhantes. 

Analogamente, as configurações iniciais, diferentes 
umas das outras pois são geradas ao ACASO, ficam 
submetidas a um conjunto de regras que simulam uma 
PRESSÃO DE EVOLUÇÃO e acabam convergindo para 
formas similares. 

> 
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LIVROS PARA TK, l\EZ, CP 



r ^ 

TRINTA JOGOS 

INCLUINDO PROGRAMAS EM CÓDIGO LIS 
TADOS POR IMPRESSORA 

JOGO DE DAMAS, LABIRINTO, GUERRA 
NAS ESTRELAS, ENTERPRISE,PAREDÃO, 
DEMOLIDOR, VELHA, pASSINO, ROLETA 
RUSSA, CORRIDA DE CAVALOS, GOLF, 
VINTE E UM, CUBO MÁGICO,SENHA,BAN 
CO IMOBILIÁRIO, BOMBARDEIO, SOM 
POR SOFTWARE, ETC.... 

LANÇAMENTO CR$ 4.000,00 

APLICAÇÕES SÉRIAS 

» 

FOLHA DE PAGAMENTO, BALANCETE,CON 
TAS A RECEBER, A PAGAR, CORREÇÃO 
MONETÁRIA DAS CONTAS DO BALANÇO, 
CORREÇÃO DAS CONTRIBUIÇÕES DO I. 
A.P.A.S., CADASTRO DE CLIENTES , 
CONTA BANCÁRIA,TABELA PRICE,ESTA¬ 
TÍSTICA, CORREÇÃO DE PROVAS,EDITOR 
DE TEXTOS, RAM TOPER , SUB-ROTINAS 
EM CASSETTE, CHAINING PROGRAMAS, 
CONTANDO OS BYTES DAS LINHAS, DO 
PROGRAMA, DAS MATRIZES,ECONOMIZAN 
DO MEMÓRIA, ETC... ETC... 

CR$ 4.800,00 

45 PROGRAMAS 

ARQUIVOS,ESTOQUE, PLANO CONTÁBIL , 
AGENDA TELEFÔNICA,INVASORES,APAGUE 
A TRILHA, CAÇA AO PATO, JOGO DA VE 
LHA, FORCA, DADO, TABELAS, TABUADAS, 
CONVERSÃO DE COORDENADAS, MÉDIA,FI 
BONACCI,PROGRESSÃO, BIORRÍTMO , RE 
NUMERADOR DE LINHAS EM CÓDIGO,ETC. 

7 - EDIÇÃO cr$ 4.000,00 

l _ J 


MICRON 

ELETRÔNICA COMERCIO E INDUSTRIA LTDA 
Av S Joao 74 Telefone 22 4194 S Jose dos Campos 
Est de Sao Paulo 


A grande virtude deste programa é o de permitir simu¬ 
lar, em poucos minutos, um suceder de gerações que di¬ 
ficilmente poderemos observar na prática. Para reiniciar 
a observação digite BREAK e a seguir RUN. 


69 passo: para salvar o programa em fita você tem 3 
caminhos: 

a) Digitar SAVE "LIFE'' normalmente 

b) Acrescentar as linhas: 

10 SAVE "LIFE" 

11 RUN 

e começar a gravação com 

GOTO 10 

c) Se você tiver um TK85, acrescente as linhas: 

10 LET LIFE = USR 8405 

11 RUN 

Neste caso, ao digitar: 

GOTO 10 

você estará gravando o programa em HIGH SPEED. 

O 
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Programa do Mês 

ARQUIVO 


Este programa foi adaptado a partir de um programa 
publicado em março na revista Microcomputing, sendo 
o original de autoria de Russel King. 

E um programa inteiramente em BASIC que compen¬ 
sa sua lentidão com uma grande elasticidade. Como o 
programa é muito extenso (9800 bytes), aconselhamos 
o leitor a gravar a listagem em fita cada 50 ou 60 linhas: 
se faltar energia elétrica nem todo o trabalho de digita¬ 
ção estará perdido. Esta técnica tem a vantatem adicio¬ 
nal de permitir uma "descansadinha" enquanto o pro¬ 
grama incompleto está sendo gravado. 

Quando o programa estiver completo, é conveniente 
gravá-lo algumas vezes (isto pode ser feito automatica¬ 
mente: veja dicas na página 29 ). 

Ao rodar o programa o leitor deve criar o hábito de 
digitar sempre GOTO 1 e nunca RUN, para não perder 
os dados a serem inseridos posteriormente. A primeira 
coisa que vemos é um menu inicial que caracteriza o 
computador empregado, dimensionando conveniente¬ 
mente a memória (fig. 1). 


SEU COMPUTADOR E* . 

1.. .TK82-C (1SK) 

2- . .TK83 ÍI6K) 

3.. .2X81 (1ÕK) 

4- b c . T IMEX < 16K ) 

5. . .CP 280 

6., -NEZ8080C16K) 

7. a.TK82/83 (64K) 

8. . .TK85 U5K) 

9 , . .TK85 ( 4-8K> 


(MENU INICIAL) 


fig. 1 


Uma vez digitada a opção correta, passamos ao menu 
principal (fig. 2). Quando usamos o programa pela pri¬ 
meira vez devemos começar pela opção 8: 

8 . . MONTAR NOVO FICHÁRIO 



COMANDOS DO flROUIUG MICROHOBBY 
1-.INSERIR REGISTROS 

2.. TROCAR REGISTROS 

3.. APAGAR REGISTROS 

4.. . LISTAR TODOS OS REGISTROS 

5.. BUSCA DE UM REGISTRO 

5.. 0.DENAR REGISTROS 

7.. GRAUAR REGISTROS 

8.. MONTAR NOUO FICHÁRIO 

9.. LISTAR CAMPOS 

QUAL UOCE DESEUA USAR7 


% 2 

O programa pergunta qual o nome do fichário: este 
nome se transforma também no nome do programa, 
quando usarmos a opção 7: 

7 . . . GRAVAR REGISTROS 

o argumento do SAVE será escolhido nesta ocasião. 

Vamos supor que queiramos montar uma agenda de 
telefones de amigos. Digitamos, então : 

AGENDA AMIGOS 

O programa pergunta então quantos campos terá cada 
ficha. Como se trata de uma agenda de telefones bastam 

> 
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dois. Dependendo da utilização do fichário, uma quanti¬ 
dade maior de campos poderá ser escolhida. Obviamente 
quanto mais campos . . . menos fichas. 

A seguir devemos definir quantos caracteres para o tí¬ 
tulo de cada campo. Aqui convém ser bem econômico. 
No nosso exemplo vamos escolher três. Isto permite que 
o tamanho máximo de cada campo seja de 28 caracteres: 

NOME DO CAMPO + CONTEÚDO DO 
CAMPO = 31 CARACTERES 


O programa pede agora o nome do campo 1. Vamos 
digitar: 


NOM (NOME DO AMIGO) 


Devemos agora responder quantos caracteres o campo 
NOM deve ter. Como se trata de uma agenda de amigos, 
bastam uns 12 caracteres (não precisamos do nome com¬ 
pleto). 


Vamos agora inserir alguns registros. Para isto basta 
digitar 1: 

1 . . . INSERIR REGISTROS 

O computador, a cada inserção nos pergunta se dese¬ 
jamos trocar algo ou se desejamos inserir mais registros. 
Todas essas perguntas devem ser respondidas por S ou N 
(Sim ou Não). 

Ao terminar a lista, digite N quando a pergunta for; 
"deseja inserir mais registros?". Não se preocupe se o 
computador parece sair do ar (mais uma vez esquisitices 

do SCROLL) 

Digamos agora que você queira listar os registros. Bas¬ 
ta digitar 4: 

4.. LISTAR TODOS OS REGISTROS 

O computador pergunta se queremos a listagem de to¬ 
dos os campos e se esta deve ser efetuada no vídeo ou na 
impressora. 


Repetimos a operação para o campo 2: 

Nome do campo 2: TEL (TELEFONE) 
Comprimento: 7 


A listagem surge na tela como SCROLL e a cada ficha 
pára. Para continuar basta ficar pressionando a tecla C. 
Querendo interromper digite BREAK e GOTO 1000 (e 
tenha paciência com o SCROLL) (fig. 4). 

QUER R LXSTRGEh DE TODOS CfitiPOS? 


Somos informados que a memória comporta 330 re¬ 
gistros (com 16 K), e nos é perguntado quanto deseja¬ 
mos (fig. 3). 


©URL 5ERR* 
FICHftRIO 


O NQHE DO FXCHRRXO ? 


DESEJR ÕURNTÜ5 CRMP0572 
©URNTOíd CflRflCTERES PRRR O TITULO 
DE CRDR CRMPO 7 (0 R 15)3 

O MRXIMO DE CRDR CRMPO 

E m DE £3 CRRRCTERES 


MO UIDEO OU NR IMPRE550RR? CU/I) 
DIG XTE C PftnH CüNTXNURR 


NOM:JOSE RNTONIO 
TEL : 54-38877 

NOM:RLBERTO 
TEL: 28724-58 

NOM:URLERIR 
TEL: 4-523387 


CRMPO 1:NOM 

COMPRIMENTO DO CRMPO 1*1-28) : 12 


NOM:UICENTE 
TEL : 4-556734- 


CRMPO 2:TEL 

COMPRIMENTO DO CRMPO(1-28):12 


O NUMERO MRXIMO DE REGISTROS 
URLE RPROXIMRDRMENTE 330 
OURNTOS REGISTROS DESEUR? 


fig- 3 


fig-4 


Digamos que seja necessário tirar uma lista na impres¬ 
sora em ordem alfabética. Devemos, no menu principal 
digitar 6. 


Apenas para arredondar, vamos escrever 300. O com¬ 
putador pede então para digitar qualquer tela menos 

BREAK 

Voltamos então ao menu principal com o fichário já 
dimensionado. Esta volta não é muito rápida devido a 
uma peculiaridade do SCROLL do TK (veja DICAS, 
pág. 27). 


6 . . ORDENAR REGISTROS 


Uma vez escolhido o campo a ser ordenado após a 
execução é perguntado se desejamos refazer a ordenação 
segundo outro critério. Digitando N, volta-se ao menu 
principal. Digitamos agora 4 e escolhemos como opção a 
impressora, obtendo, por exemplo, a listagem da fig. 5. 
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NOM : RLBERTO 


Se não soubermos o número, entra em funcionamen¬ 
to a mesma rotina de busca do item 5: 

5 . . BUSCAR DE UM REGISTRO 

Digitando S para o campo NOM a busca começa. Ao 
invés de digitar o conteúdo completo do nome, vamos 
digitar apenas V (no fichário do nosso exemplo temos 
dois nomes que começam com V: Vicente e Valéria). 
O programa busca os dois (fig. 7). 



NOM:DELERMO 
TEL:2114533 


NOM:OOSE RNTÜNXO 
TEL.: 54.38877 


PRESSIONE OURNDO UOCE 

tiuer o campo 

NOM 7 

ENTRE COM O CONTEÚDO DESTE CAMPO 
REGISTRO NUMERO S 
NOM:UALERIA 
TEL. : Í5233S7 

DESEJA CONTINURR R BUSCA? 
REGISTRO NUMERO 7 
NOM:UICENTE 
TEL : á 356734. 

DESFJR C O NTIN UR R R BU5CA? 

BUSCR COMPLETA 


NOM:MRRCIR 


DESEJA FAZER OUTRA BUSCR"? 


TEL: ©134-555 


fig. 7 


0 campo 3: 


NOM:MRRILDR 
TEL:8997656 

NOM:URLERIR 
TEL : 4-523387 


NOM:UICENTE 
TEL:4555734 



fig. 5 

Para trocar algum registro, basta digitar 2: 


2 . . TROCAR REGISTROS 


Sabendo o número da ficha a ser trocada podemos al¬ 
terar qualquer um de seus campos (fig. 6): 

ENTRE COM O NUMERO DO REGISTRO 
R SER TROCADO 


NOM:DELERMO 

IRP a TROCAR? 


3 . . APAGAR REGISTROS 


tem funcionamento análogo. Por prudência, antes de 
apagar o programa, pede uma confirmação (fig. 8). 

UOCE PRECISA ENTRAR COM O NUMERO 
DO REGISTRO R SER RPPGPDO . 

UOCE DESEJA FAZER UMA PESQUISA 
SOBRE O NUMERO DOS REGISTROS? 

ENTRE COM O NUMERO DO REGISTRO 

R SER APAGADO 

NOM:UICENTE 

TEL:4555734 

APAGAR ESTE REGISTRO? 

•’B" 

% 8 

0 campo 9 mostra uma ficha vazia apenas para lem¬ 
brar qual o formato do arquivo que está sendo rodado 
(fig. 9). 

LISTAGEM DOS CAMPüS DE 

íBEsat^i^as 


NOME 

END 

CEP 

TEL 


TEL:2114533 

IRA H TROCAR? 

TEL:2114535 

REGISTRO NUMERO 2 ACABADO 
DESEUR TROCAR OUTRO REGISTRO? 

B 

fig. 6 


PRESSIONE QUALQUER TECLA 

MENOS •• BRERK" 

fig. 9 

Finalmente, optando por 7 o leitor poderá gravar em 
fita os registros efetuados até então. Se o computador 
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for um TK85 poderemos optar por velocidade normal 

ou HIGH-SPEED. 

Lembre-se, porém, de uma coisa importantíssima. Se 
o programa for interrompido por algum erro jamais digi¬ 
te RUN, sob pena de perder todo o fichário. 0 programa 
deve ser sempre reiniciado com um GOTO 1000. 


0BREM 

900 REM ESCOLHA DO COMPUTRDOR 

901 PRINT 11 SEU COMPUTADOR E* : "; 

TRB 2; " 1. • . TK82 -C a5K)**;TRB 2; " 
= ■ ■ ■TK83 Í16K) 2; n 3. . ,2X8 

1 <16K)";TAB 2; “4-. r «TIMEX (16K)" 

;TRB 2; "5... CP 200 ”;T RB 2;"6...N 
EZ8000 (16K) TftB 2; "7. . . TK82/83 
(64>K) ,# ; TRB 2 j "8 « . .TK85 (16K) ";TR 

8 2; "9 .«.TK8S <43K)" 

910 LET HI=0 
915 INPUT A 
920 LET A = INT R 

930 IF A <1 OR A>9 THEN GD5UB 8© 
00 

940 IF R >0 AND A <10 THEN GOTO 9 
55 

950 GOTO 900 

955 LET HEMO =39000 

960 IF A 07 AND A < >9 THEN LET M 
EMO=6300 

970 IF A =8 OR A =9 THEN LET HI = 1 
1000 REM MENU 
1005 FAST 
1010 CL5 

1030 PRINT TAB 2;"COMANDOS DO AR 
QUIUO MICROHOBBY” 

104-0 PRINT 

1050 PRINT "1..INSERIR REGISTROS 


.TROCAR REGISTROS" 


1060 PRINT 
1070 PRINT 
1080 PRINT 
1090 PRINT "3..APAGAR REGISTROS" 
1100 PRINT 

1110 PRINT "4..LISTAR TODOS OS R 
EGISTROS" 

1120 PRINT 

1130 PRINT "5..BUSCA DE UH REGIS 
TRO" 

1140 PRINT 
1150 PRINT 


1160 

1170 

1180 

1190 

RIO" 

1200 

1210 

1220 

1230 

1240 

R7"; 

1250 

1260 

1270 

00 

1275 

310 

1280 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


"6..ORDENAR REGISTROS 

"7..GRAURR REGISTROS" 
"8..MONTAR NOVO FICHA 

"9-.LISTAR CAMPOS" 

"QUAL VOCE DESEJA USA 


INPUT A 
LET A=INT A 

IF A <1 OR A>9 THEN GOSUB 60 
IF A > 0 AND A<10 THEN GOTO 1 
CL5 

GOTO 1030 
CLS 

IF A=1 THEN GOSUB 1420 

IF A=2 THEN GOSUB 171© 

IF A=3 THEN GOSUB 2170 

IF A=4 THEN GOSUB 2670 

IF R=5 THEN GOSUB 3300 

IF R=6 THEN GOSUB 3830 

IF A=7 THEN GOSUB 4132 


•QUER TROCAR ALGUMA C 

THEN GOTO 151© 

*" INSER 


1390 IF A =8 THEN GOSUB 4250 
1400 IF A =9 THEN GOSUB 492© 

1405 FAST 
1410 GOTO 1010 

1420 REM INSERIR REGISTROS 
1430 LET N=N + 1 
1440 SCROLL 

1450 PRINT "REGISTRO NUMERO N 
146© IF N<=H THEN GOTO 1510 
1470 LET N=M 
1480 SCROLL 
1482 SLQU 

1484 FOR 1=1 TO 12 

1490 PRINT AT 11,2;"FIM DOS REGI 
5TROS" 

1491 PRINT AT 11,2; 


r IH DO 


1494- NEXT X 

14-96 FR ST 

1500 GOTO 1700 

1510 FOR 1=1 TO NI 

1520 SCROLL 

1530 PRINT N*(I) 

154-0 INPUT 1$ (N,D (Ijl) TO 0(1,2) 

1 

1550 PRINT I*(N,D(I,1> TO D<I,2) 

1560 SCROLL 
1570 NEXT I 
1580 SCROLL 
1590 PRINT 
□ ISO?".; 

1600 INPUT R* 

1610 SCROLL 
1620 IF R*="S' 

1630 SCROLL 

1640 PRINT "REGISTRO ";N; 

IDO" 

1650 SCROLL 

1660 PRINT "DESEJO INSERIR MRIS 
REGISTROS?"; 

1670 INPUT R* 

1680 SCROLL 

1690 IF R*="S" THEN GOTO 1420 
1700 RETURN 

1710 REM TROCRR REGISTRO 
1720 SCROLL 
1730 SCROLL 

1740 PRINT "PORO TROCRR UH REGIS 
TRO UOCE" 

1750 SCROLL 

1700 PRINT "PRECISR ENTRRR COM O 
SEU NUMERO" 

1770 SCROLL 

1780 PRINT " UOCE DESEJR PESOUIS 
RR SOBRE" 

1790 SCROLL 

1800 PRINT "O NUMERO DO REGISTRO 

*? »• 

1810 INPUT A$ 

1820 SCROLL 

1830 IF A$="S" THEN GOSUB 3300 
1840 CLS 
1850 SCROLL 

1860 PRINT "ENTRE COM O NUMERO D 
O REGISTRO" 

1870 SCROLL 

1880 PRINT "A SER TROCADO" 

1890 SCROLL 
1900 INPUT A 
1910 LET A=INT A 
1920 SCROLL 

1930 IF A > 0 AND A<=N THEN GOTO 1 
96© 

1940 PRINT "NUMERO DE REGISTRO N 
AO UALIDO" 

1950 GOTO 2110 
1960 FOR 1=1 TO NI 
1970 SCROLL 

1980 PRINT N $ (I);":";I$(A,D(I,1) 
TO D (1,2) ) 

1990 SCROLL 

_ > 
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2000 PRINT T RB 10;" IRR" TROCfiR?' 1 

2010 INPUT Rí 
2020 SCROLL 

2030 XF fi$< >“5" TMEN GOTO 2080 
204-0 PRINT N*(I3; Bt :"; 

2050 INPUT I*(R,D(I,I) TO D(1,2) 

) 

2060 PRINT 1$(R,D(I,1) TO Dd,2) 

) 

2070 SCROLL 
2080 NEXT I 
2020 SCROLL 

2100 PRINT "REGISTRO NUMERO ";R; 
" PCRBRDO" 

2110 SCROLL. 

2128 PRINT "DESEJR TROCRR OUTRO 
REGISTRO?" 

2138 INPUT Rí 
214-0 SCROLL 

21S8 IF fií="S u THEN GOTO 171© 
2168 RETURN 

2170 REH RPRGRR UM REGISTRO 
2180 IF N > 0 THEN GOTO 2220 
2198 SCROLL 

2208 PRINT "NENHUM REGISTRO NO F 
ICHRRIO " 

2210 GOTO 2510 
2220 SCROLL 

2230 PRINT "UOCE PRECISR ENTRRR 
COM O NUMERO*' 

224-0 SCROLL 

2250 PRINT "DO REGISTRO R SER fip 
«GRDÜ. ** 

228© SCROLL 

2278 PRINT "UOCE DESEJR FRZER UM 
R PESQUISR" 

2280 SCROLL 

2290 PRINT "SOBRE O NUMERO DOS R 
EGISTROS 7" 

2300 INPUT Rí 
2318 SCROLL 

232© IF «$ = **5** THEN GOSUB 3300 
233© SCROLL 

234-0 PRINT "ENTRE COM O NUMERO D 
Q REGISTRO " 

2358 SCROLL 

2360 PRINT "R SER RPRGRDO" 

2370 INPUT R 
2380 LET R = INT R 

2390 IF R>8 RND R < =N THEN GOTO 2 
4-30 

24.08 SCROLL 

24-10 PRINT "NUMERO DE REGISTRO N 
RO URLIDO" 

24-20 GOTO 2610 
24-30 FOR 1 = 1 TO NI 
24-40 SCROLL 

2450 PRINT N$ (I) ; %% j 1$ (RjD (1,1) 

TO D (1,2)) 

24-6© NEXT I 
24-70 SCROLL 

24-80 PRINT "RPRGRR ESTE REGISTRO 
2490 INPUT Rí 

2500 IF R$="S" THEN GOTO 2520 
2510 GOTO 2610 

2520 IF R=N THEN GOTO 2580 
2540 FOR I=R TO N-l 
2550 LET lí f I)=IÍd + 1) 

2560 NEXT I 
258© LET N =N — 1 


2598 

2608 

2610 

2620 

PRRR 

2638 

2640 

2650 

266© 

2670 

2680 

269© 

2700 

ODOS 

2710 

2720 

2730 

2750 

2760 

2770 

2780 

2800 

2818 

2828 

2830 

08 

2648 

2850 

RR** 

2860 

2878 

2880 

2890 

2900 

2910 

2920 

293© 

294© 

2950 

2966 

297© 

2980 


SCROLL 

PRINT "REGISTRO RPRGRDO" 
SCROLL 

PRINT "MRIS RLGUM REGISTRO 
RPRGRR?" 

INPUT Rí 
SCROLL 

IF Rí="S" THEN GOTO 218© 
RETURN 

REM LI5TRGEM DOS 
SCROLL 
LET R=© 

PRINT "QUER R LISTRGEM 
CRMPOS?" 

INPUT Rí 

IF Rí="S" THEN LET R=1 
SCROLL 

FOR 1=1 TO NI 
LET R<I)=R 

IF R=1 THEN LET R(I)=I 
NEXT I 
LET J=N1 

IF R=l THEN GOTO 2970 
SCROLL 

PRINT "PRESSIONE ""5"" 
CRMPOS" 


REGISTROS 


DE T 


PRRR 


SCROLL 

PRINT "QUE UOCE DESEÜfi LIST 


TO NI 


LET U=0 
SCROLL 
FOR 1=1 
SCROLL 

PRINT N$(I); " 7* 

INPUT Rí 
PRINT Rí 
IF Rí<>"5" THEN 
LET U=Ü4-1 
LET R (U) =1 
NEXT I 
SCROLL 

PRINT "NO UIDEO 
SSORR7 (U/I)" 

299© INPUT Rí 
300© IF R$(1)="I" THEN 
3005 5LOU 
3010 SCROLL 

3015 PRINT "DIGITE C PRRR 
URR" 

3020 SCROLL 

3030 PRINT TRS 5;Lí 

304© SCROLL 

305© FOR 1=1 TO N 

308© FOR K=1 TO U 

3070 SCROLL 

308© PRINT Ní (R (K) );":' 1 ; 1$ ( I , D (Pi 
ÍK) ,1) TO D(R(K) ,2) ) 

3090 NEXT K 
SCROLL 

IF INKEY$ < >"C" THEN GOTO 31 


GOTO 2960 


OU NR IMPRE 


GOTO 313© 


CQNTIN 


3100 

3106 

05 

3110 

3115 

3120 

3140 

3150 

3155 

3160 


NEXT I 
FR ST 

GOTO 3250 
CLS 

LPRINT 
LPRINT 
LPRINT 


T RB 5; Lí 


3170 FOR 1=1 TO N 
3180 FOR K=1 TO U 
3190 LPRINT 
3200 LPRINT NííR(K)); 
R (K) , 1) TO D(R(K) ,2) ) 
3218 NEXT K 
3228 LPRINT 
3225 LPRINT 


: " ; I í ( I , D i 


3230 NEXT I 
325© SCROLL 
3260 PRINT "OUTRR LISTRGEM?* 
3270 INPUT Rí 
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3280 IF RS = *’S" THEN GOTO 2670 
3290 RETURN 

3300 REM BU5CP DE UH REGISTRO 
3310 5CROLL 

3320 PRINT "PRESSIONE ,aa, S aa,a qURN 
DO DOCE 
3330 SCROLL 

334-0 PRINT "TIUER O CRMPO" 

335© FOR 1=1 TO NI 

3360 SCROLL 

337© PRINT Nf(I);" 7**; 

3380 INPUT RS 

3390 IF RS = ,% 5” THEN GOTO 34-4-0 
3400 NEXT I 
3410 SCROLL 

3420 PRINT "SELECRO CRNCELRDR" 
3430 GOTO 3780 
3440 SCROLL 

345© PRINT "ENTRE COM O CONTEÚDO 
DESTE CAMPO" 

3460 INPUT R$ 

3470 LET fl=LEN RS 

3480 IF R<1 THEN GOTO 3450 

3490 IF fi<=(D(I,2)-D(I,1)+1) THE 

N GOTO 3520 

3500 LET R= (D (1,2) -D (I1) +11 
3510 LET R S = R $\1 TO R) 

3520 LET R=R-1+B(I,1) 

3530 LET F=0 

3540 LET 0=0 

3560 FOR U=1 TO N 

357© IF A$=I$<U,D(I,1) TO Rí THE 
N GOSUB 3660 

3580 IF 0=1 THEN GOTO 3600 
3590 NEXT U 
361© SCROLL 

3620 PRINT "BUSCR COMPLETR" 

3630 SCROLL 

3640 IF F =0 THEN PRINT "REGISTRO 
NRO RCHRDO" 

3650 GOTO 3780 
3660 SCROLL 

3670 PRINT "REGISTRO NUMERO "; J 
3680 FOR K = 1 TO NI 
3690 SCROLL 

3700 PRINT N4(K);": " ; I$(U,D<K,1> 
TO D(K,2)) 

3710 NEXT K 
3720 SCROLL 

3730 PRINT "DESEJR CONTINURR R 8 

i ^ " 

3740 INPUT B$ 

3750 IF THEN S_ET 0=1 

3760 LET F = 1 
3770 RETURN 
3780 5CROLL 

3790 PRINT "DESEÜR FfiZER OUTRR E? 
USCR7" 

3800 INPUT R$ 

3810 IF fi*="S" THEN GOTO 3300 
3820 RETURN 

3830 REM ORDEM DOS REGISTROS 
3840 SCROLL 

3850 PRINT "E5TR ROTINR ORDENA R 
FRNUMERICR - " 

3860 SCROLL 

3870 PRINT "MENTE COM BASE NUM C 
RMPO" 

3880 SCROLL 

3890 PRINT "PRESSIONE ""S"" PRRR 
O CRMPO " 

3900 SCROLL 

3910 PRINT "QUE IRR* SERUIR DE B 
RSE " 

3920 SCROLL 

393© FOR 1=1 TO NI 

3940 SCROLL 

3950 PRINT N«(X); aa 7** 

3960 INPUT R$ 

3970 IF RS="S" THEN GOTO 4020 
3980 NEXT I 
3990 SCROLL 


400© PRINT "ORDENRCAG CRNCELRDR" 

4010 GOTO 4160 

4020 SCROLL 

4040 FOR 0=1 TO N-1 

405© FOR K=J TO N 

4060 IF X% iiJ jD (X , 1) TO D (I |2) ) < = 
IS (K, D (1,1) TO 0(1,2)? THEN GOTO 
4073 

407© LET BS=IS(Ü) 

4071 LET I$CU)=I$(K> 

4072 LET I$(K)=BS 

4073 NEXT K 

4074 NEXT U 

4076 SCROLL 

4077 PRINT "ORDENACAO COMPLETR" 
4080 SCROLL 

4090 PRINT "ORDENRP COM BRSE EM 
OUTRO CAMPO?" 

4100 INPUT RS 
4110 SCROLL 

4120 IF Aí="S" THEN GOTO 3830 
4130 RETURN 

4132 REM GRAUAR PROGRAMA 

4134 IF HI=0 TMEN GOTO 4146 

4135 PRINT "PREFERE GRAUAR EM UE 

LOCIDADE NORMAL <N) OU HIGH-S 

DEED? (H) ,a 

4137 INPUT CS 

> 



BASIC & LINGUAGEM 
DE MÁQUINA 


NÍVEL 0 

CRIANÇAS 

10h 

INICIACÁO 

NIVEL 1 

ADULTOS E 
ADOLESCENTES 

20h 

INICIAÇÃO 

NÍVEL 2A 

ADULTOS E 
ADOLESCENTES 

20h 

APROF EM APLICAÇÕES 
ADMINISTRATIVAS 

NÍVEL 2B 

ADOLESCENTES 

JOGOS 

20h 

APLICAÇÕES EM 

JOGOS 

NÍVEL 3 

ADULTOS E 
ADOLESCENTES 

40h 

LINGUAGEM DE MÁQUINA 
ASSEMBLV Z80 

NÍVEL 4 

ADULTOS E 
ADOLESCENTES 

40h 

APROF. DE LINGUAGEM 

DE MAQUINA 


Núcleo 


oeÁ orientação 

Hde iestudos Informações • Inscrições: 

L V / Av. Brig. Faria Lima, 1*461 - 3.° - Cj. 31 

Tel.: 813-4555 • CEP 01451 - Sâo Paulo-SP 
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4138 IF C$=“N“ THEN GOTO 4-14-6 
4-139 CLS 

4-14-0 PRINT “COM O GRRURDOR EM PO 
SICRO DE GRRURR DIGITE R TECL 

R H“ 

4-14-1 INPUT R$ 

4142 IF R $ = “ H “ THEN LET H=U5R 64 
06 

4146 GOTO 1®)38 
4146 CL5 
4160 SCROLL 

4160 PRINT “PONHR O GRRURDOR EM 
POSICRO DE“ 

4170 5CRDLL 

4160 PRINT "GRflURR. PRRR COMECRR 
R GRRURR ,f 
4190 5CROLL 

4288 PRINT “PRESSIONE OURLQUER T 
ECLR M 

4910 PRUSE 3000 
4228 SCROLL 
423© SRUE L $ 

4940 GOTO 1000 

4250 REM MÜNTRR FICHRRIO 

4260 SCROLL 

4270 PRINT “©URL SERR B O NOME DO 
PICMRRIO ?“ 

4972 INPUT ©$ 

4273 DIM L$(LEN ©$) 

4274 FOR © = 1 TO LEN Q$ 

4276 LET L$ÍO)=CHR$ (CODE ©$(©)+ 
126) 

4276 NEXT © 

4290 SCROLL 

4292 PRINT “PICHRRIO : “ ; L $ 

4294 SCROLL 

4300 PRINT “DESEJR OURNTOS CRMPO 

5?“; 

4320 INPUT NI 
4330 PRINT NI 
4340 SCROLL 
4360 LET K = 15 

4360 PRINT “OURNTOS CRRRCTERES P 
RRR O TITULO” 

4370 SCROLL 

4360 PRINT “DE CRDR CRMPO 7 (0 R 

- 15)“* 

4390 INPUT K 

4400 IF K >15 THEN LET K = 15 
4410 IF K <0 THEN LET K=© 

4415 PRINT K 
4420 SCROLL 
4430 LET L =31—K 

4440 PRINT “O TRMRNHO MRXIMO*DE 
CRDR CRMPO ** 

4450 SCROLL 

4460 PRINT “£ p DE ";L;“ CRRRCTER 
ES“ 

4470 DIM N$(N1,K) 

4480 DIM R(N1> 

4490 DIM D (NI . 2) 

4500 SCROLL 
4510 SCROLL 

4520 PRINT “ENTRE COM DESCRICOES 
DO CRMPO" 

4530 SCROLL 

4540 PRINT “E O COMPRIMENTO DO C 
RMPü “ 

4550 LET U=1 
4560 SCROLL 
4570 FOR 1=1 TO NI 
4560 SCROLL 


4590 LET R$=““ 

4600 PRINT “CRMPO “;I;“;“; 

4610 INPUT R$ 

4620 LET R$ = R$-h“ 

t • 

4630 LET N$(I)=R« 

4635 PRINT N$<I) 

4640 SCROLL 

4650 PRINT "COMPRIMENTO DO CRMPO 
(1-";L ;“): 

4660 INPUT R 

4670 IF R <1 THEN LET R = 1 
4660 IF R >L THEN LET H=L 
4690 PRINT R 
4700 LET DiLl) =U 
4710 LET U=U+R 

4720 LET Dil.2)=J-1 1 

4730 SCROLL 

4740 NEXT I 

4750 LET U=U-1 

4760 LET N=0 

4770 LET M = INT ( (MEMO-Ni*(31-Lfi 
2) ) /U) 

4760 SCROLL 

4790 PRINT “O NUMERO MRXIMO DE P. 
EGISTkOS “ 

4600 SCROLL 

4610 PRINT “URLE RPROXIMRDRMENTE 

II . |uj 

4620 SCROLL 

4630 PRINT “QURNTOS REGISTROS UO 
CE DESEJfi? ** 

4640 INPUT R 
4850 LET R=INT R 

4660 IF R>0 RND R <M THEN LET M=R 
4870 DIM I$(M,U) 

4872 SCROLL 
4874 PRINT M 
4880 SCROLL 
4882 FRST 

4890 PRINT “DIGITE ©QUER TECLRÍM 
ENOS BREhK" 

4908 PRUSE 3O0G0 
4910 RETURN 

4928 REM LISTRGEM DOS CRMPOS 
4930 SCROLL 

4948 PRINT “LISTRGEM DOS CRMPOS 
DE“ 

4245 SCROLL 

4946 SCROLL 

4947 PRINT L$ 

4950 SCROLL 
4952 SCROLL 

j 4954 iB PRim iH ^ B BI “"" l " ,a “ 1 p 11 — 

4980 FOR 1=1 TO NI 

4988 SCROLL 

4990 PRINT N$(I)j”: 

5800 NEXT I 
5018 SCROLL 
5012 SCROLL 
5014 PRINT 

58 is"' SCROLL * 

5020 PRINT “PRESSIONE OURLQUER T 
ECLR “ 

5021 SCROLL 

5022 PRINT “MENOS “ “ BRERK “ '* “ 

5038 SCROLL 
5840 PRUSE 30080 
5050 RETURN 
5068 ST OP 
6080 SLÜU 

6010 FOR 1=1 TO 12 

6030 PRINT RT 0,8;"POR FRUOR ENT 
RE B E ÊJ" 

6048 PRINT RT ©,8;“POR FRUOR ENT 
RE 1 E 9“ 

605© NEXT I 
6068 FRST 
8070 RETURN 
7088 ST OP 


O 
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A FITA DO MES 

Simulador de Vôo 


A fita que estamos oferecendo de brinde para os nos¬ 
sos assinantes contém um jogo bastante realista de 16 K 
intitulado "SIMULADOR DE VOO". A adaptação feita 
para o Brasil de um programa originalmente inglês criou 
um pequeno grilo, felizmente já sanado, para o TK85 
(veja DICAS do nP 2). 

Inicialmente o programa pergunta se queremos o vôo 
completo ou apenas a fase de aterrisagem. Aconselha¬ 
mos os "manicacas" a se limitarem inicialmente à ater¬ 
risagem. Por maior motivo, ao serem questionados se de¬ 
sejam ou não os efeitos do vento, aconselhamos respon¬ 
der "Não". 


Ao começar o programa, inicialmente temos, uma vi¬ 
são do interior da cabine. Pelo parabrisa vemos a linha 
do horizonte. Puxando o manche para trás (com 
joystick, ou com a tecla 6) vemos o horizonte descer, 
pois o nariz do avião está apontando para cima. 

Da mesma forma, digitando 7 fazemos o nariz baixar 
e vemos o horizonte subindo. O nível do horizonte está 
indicado num mostrador à esquerda. 

Cuidado, pois este instrumento tem um pouco de inér¬ 
cia. Usando as teclas 5 e 7 fazemos o avião se inclinar 
para esquerda e para a direita. Obviamente veremos o 

t> 
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horizonte se inclinar ao contrário, pois o referencial está 
fixo na cabine e não na Terra. 

Abaixo do mostrador de horizonte temos o indicador 
de combustível, cuja indicação não é crítica quando es¬ 
colhemos apenas a fase de aterrisagem, mas que se torna 
um grande fator de angústia quando o vôo é longo e es¬ 
tamos perdidos. 

À direita temos o indicador do regime de rotação do 
motor. Digitando P (de forma contínua, pois todos os 
controles são do tipo INKEY$) a rotação aumenta, 
aumentando a velocidade indicada logo à esquerda em 
KM/H e, obviamente, o consumo de combustível. Digi¬ 
tando 0 o regime diminui: (cuidado para não perder a 
sustentação). 

O altímetro indica a altura em metros e sua marcação 
pode ser alterada levantando ou baixando o nariz do 
avião. Cuidado que, ao perder altura, o avião ganha ve¬ 
locidade. 

Digitando F o flap é abaixado, aumentando a susten¬ 
tação em baixa velocidade (aterrisagem) e D ele é retira¬ 
do. Dar flap em alta velocidade produz desastres. 

Para abaixar ou levantar o trem de aterrisagem basta 
digitar G. Antes de aterrisar verifique o mostrador do 
trem ao lado do de flap, para não correr o risco de ras¬ 
par a barriga na pista. 

No lugar de honra do painel temos a bússola que mos¬ 
tra o rumo do avião. À direita da bússola temos o rádio- 
goniômetro que indica o rumo (em graus) e a distância 
(em KMS)até o radiofarol do aeroporto. Este rumo é 
mostrado também de forma analógica pelo mostrador 
circular com modelo de avião. 


Se digitarmos M (mapa), a cabine desaparece do vídeo 
e em seu lugar vemos o mapa da região. No alto à es¬ 
querda continuamos tendo acesso à leitura do rumo do 
avião. O avião e o rádio-farol são representados como 
pontos piscando. Querendo fixar o sistema de navega¬ 
ção em um rádio-farol situado em outra cidade basta di¬ 
gitar B até que a cidade escolhida fique piscando. Em 
vôos longos isto pode ajudar. 

Digitando V novamente voltamos para a cabine e ve¬ 
mos no rádio goniô/netro o rumo e a distância em rela¬ 
ção ao novo rádio-farol fixado. 

Se o avião bater contra o solo, ou contra os morros 
indicados no mapa, haverá um quebra-quebra e veremos 
o relatório do acidente para nos orientar nas próximas 
tentativas. 

A fase final da aterrisagem é a mais emocionante e 
lembra os velhos tempos em que a maior preocupação 
do piloto era de não deixar o cachecol embaraçar na hé¬ 
lice. 

Com o vídeo mostrando a cabine, digitar V: se a dis¬ 
tância até o aeroporto for suficientemente pequena, ele 
aparecerá em perspectiva e a habilidade do piloto não 
dependerá mais tanto dos instrumentos. Apesar disto, 
ainda são visíveis o centralizador de descida, o velocíme¬ 
tro e o altímetro. 

Se nesse momento você lembrar do trem de aterrisa¬ 
gem, é só digitar V novamente que o painel da cabine 
volta a aparecer. 

Em pouco tempo você se tornará um hábil piloto, 
tanto visual quando em vôo por instrumentos. 

O 
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Apagando a Tela 



Quando montamos uma tela com muitas linhas usan¬ 
do o SCROLL, nos defrontamos normalmente com um 
problema: apagar a tela com um CLS é uma tarefa que 
pode ser muito demorada. Quem já brincou com o simu¬ 
lador de vôo já sentiu isso na mensagem final: DIGITE 
RUN PARA VOAR NOVAMENTE. Digitando RUN (e 
NEW LINE) deve se esperar um bocado para que a tela 
se apague totalmente e o jogo reinicie. 

Vamos então fazer algumas experiências: 

Digite inicialmente o programa listado na fig. 1 (A$ 
tem 32 o's). Com o computador no modo SLOW rode o 
programa. 

110 LET R$ = r, 0000000000000000000 
OOOOOOOOOGOOÜ" 

120 POR 1=0 TO 6 
130 SCROLL 
14-0 SCROLL 
150 SCROLL 
160 PRXNT R$ 

170 NEXT J 
120 CLS 
20© GOTO 100 

fig. 1 

Note quanto tempo demora o CLS para apagar a tela. 
Tente dar um BREAK enquanto a tela está sendo apa¬ 
gada: inútil, é necessário esperar que a tarefa se com¬ 
plete. 

Como evitar isso? Uma solução é colocar o compu¬ 
tador em SLOW enquanto a tela está sendo escrita, mas 
em FAST quando está sendo apagada. 

Acrescente as linhas: 


100 SLOW 


e 

180 FAST 

ao seu programa, de maneira que ele fique como na 
fig. 2. 

100 SLOU 

110 LET R$= M OGOOOOOOOOOOOOOOOOO 
OOOOOOOOOOOOO '* 

120 FOR 1=0 TO 6 
130 SCROLL 
14.0 SCROLL 
150 SCROLL 
160 PRINT R$ 

170 NEXT I 
180 FRST 
190 CLS 
200 GOTO 100 

fig. 2 

Rode o programa assim alterado e veja como as coisas 
melhoram um pouco. 


Mas, será que não existe uma maneira mais elegante? 

Podemos utilizar uma subrotina em linguagem de má 
quina, para encher a tela de espaços vazios. 

Uma subrotina em linguagem de máquina é uma se¬ 
quência de bytes que deve ser inseridas em algum lugar 
da memória e é chamada pela função USR Toda subro¬ 
tina desse tipo tem uma última instrução análoga ao 
RETURN, que faz voltar ao programa em BASIC No 
curso de ASSEMBLV que estamos publicando discutem- 
se as melhores localizações para estas subrotinas. Por en¬ 
quanto vamos localizá-la numa linha REM do programa 
em BASIC. 

Digite então: 

1 REM (3 pontos) 

Sem apagar o programinha anterior acrescente as li¬ 
nhas: 

10 FOR I = 16509 TO 16517 

20 PRINT I, PEEK I 

30 NEXT I 

40 STOP 

e agora digite RUN 

A função PEEK lê o byte contido no endereço de seu 
argumento. Desta forma o programinha em questão está 
lendo os bytes contidos nos endereços de 16509 a 
16517. 

O endereço 16509, no TK, contém o primeiro byte 
do programa em BASIC. Pegue o manual do TK (Apên¬ 
dice A) e veja o que podemos deduzir do que mostra 
a tela (fig. 3). 


16509 

0 

16510 

1 

16511 

5 

16512 

0 

16513 

234- 

16514- 

27 

16515 

27 

16516 

27 

16517 

116 


fig. 3 

Os endereços 16509 e 16510 contém os bytes que in¬ 
dicam o número da linha. No nosso caso trata-se da li¬ 
nha 01. 

Os endereços 16512 e 16511 (nesta ordem) mostram 
o comprimento da linha (no nosso caso 05 bytes, in¬ 
cluindo um byte final que indica que a linha acabou. 

O endereço 16513 contém o byte 234. No apêndice 
A vemos que ele corresponde ao REM. A seguir temos 
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os 3 pontos 27, 27 e 27 e finalmente o byte que indica 
NEW UNE, ou seja, esta linha de programa acabou 
(fig. 4). 


ENDEREÇO 

BYTE 

SIGNIFICADO 

16509 

0 

linha 1 

16510 

1 


16511 

5 

comprimento 

16512 

0 

5 bytes 

16513 

234 

REM 

16514 

27 


16515 

27 


16516 

27 


16517 

118 

NEW UNE 


fig. 4 

Como podemos observar, o primeiro byte livre após o 
REM é o de endereço 16514, que por enquanto, contém 
o byte 27 (ponto). 

Se quisermos alterar seu conteúdo basta usar a instru¬ 
ção POKE 


DIGITE POKE 16514, 201 


e liste o programa novamente. 

Olhe para a linha 1 (fig. 5). 

1 REM TRN . . 

10 FOR 1=16509 TO 16517 
20 PRINT I, PEEK I 
30 NEXT I 
4-0 ST OP 
100 SLOU 

110 LET R $ = ’* OOOOOOOOOOOOOOOOOOO 

aoooooooooooo" 

120 FOR 1=0 TO 6 
130 5CROLL 
14.0 SCROLL 
150 SCROLL 
160 PRINT R$ 

170 NEXT I 
180 FR ST 
190 CL-S 
200 GOTO 100 

fig. 5 

O primeiro dos três pontos, justamente o que estava 
no endereço 16514, foi substituído porTAN, que é jus¬ 
tamente o caracter 201. Rode o programa e você verá 
esta substituição (fig. 6). 


46509 

0 

16510 

1 

16511 

5 

16512 

0 

16513 

234 

16514 

201 

16515 

27 

16516 

27 

16517 

fig. 6 

118 


Vamos agora apagar as linhas 1,10, 20, 30, 40, 100 e 
180, voltando, por tanto, ao programa da figura 1. 

Como a subrotina que vamos introduzir tem 21 bytes, 
vamos digitar uma linha 1 REM seguida de 21 pontos 
para reservar 21 endereços na memória. 

A seguir, para não ter que fazer 21 POKE's seguidos 
vamos digitar esta pequena rotina: 

10 FOR I = 16514 TO 16514 + 20 

20 PRINT I, 

30 INPUTP 
40 PRINT P 
50 POKE I, P 
60 NEXT I 
70 STOP 

e rode-a com o computador em SLOW Entre com os 
bytes listados na figura 7. Liste o programa e veja como 
ficou estranha a linha 1 REM (fig. 8). 


16514 

42 

16515 

12 

18516 

64 

15517 

1 

16518 

213 

16519 

2 

16520 

35 

18521 

126 

15522 

254 

16523 

118 

16524 

40 

16525 

3 

16526 

62 

16527 

0 

16528 

119 

16529 

11 

16530 

120 

16531 

177 

16532 

200 

16533 

24 

16534 

fig. 7 

241 


1 REM ECRND - 5TR$ *7 ? ,, ?lCOS 

LET 

10 FOR 1=16514 TO 16514+20 

20 PRINT I, 

30 INPUT P 

40 PR TNT P 

fig 8 

Agora você já tem uma pequena subrotina em lingua¬ 
gem de máquina na linha REM. Apague as linhas 10, 20, 
30, 40, 50, 60 e 70, digite: 

100 SLOW 


e rode o programa. Tudo continua como no começo, 
pois o programa em BASIC ignora tudo o que estiver nu¬ 
ma linha REM. Seu programa em linguagem de máqui¬ 
na está bem quietinho e só será despertado por um USR. 

Vamos agora chamar a subrotina. A linha : 

190 CLS 


pode ser substituída por 

190 LET LIMPEZA = USR 16514 

195 CLEAR 
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A variável LIMPEZA não serve para nada: sua única 
finalidade é poder fazer constar da linha USR 16514. 
A linha não poderia começar por USR pois esta é uma 
função e não uma KEY-WORD. O argumento 16514 
corresponde ao primeiro byte após o REM da linha 1. 

Rode agora o programa assim alterado. Bem mais rá¬ 
pido não? 

Dê um BREAK enquanto a tela estiver enchendo. Se 
a seguir você digitar NEW UNE, deverá outra vez espe¬ 
rar que a tela se apague lentamente. 

Vamos agora fazer outra experiência: no endereço 
16527 foi colocado o byte do caractere que precisa en¬ 
cher a tela. No nosso caso, o byte era 0, correspondente 
a um espaço vazio. 

Vamos escolher um outro caractere correspondente 
ao byte 146. 


Vamos digitar então: 

POKE 16527,146 

Digite RUN e veja o que acontece. 

Dê um BREAK e liste o programa. 

Vamos produzir agora uma última loucura (esta dica 
vai ter um final apoteótico). 

Digite esta rotina: 

5SLOW 

10 FOR C= 128 TO 191 
20 POKE 16527, C 
30 RAND USR 16514 
40 NEXTC 
50 STOP 

e rode o programa com RUN 

Você saberia explicar o que aconteceu? 


□icas 

Gravação automática 

Um dos primeiros erros cometidos pelos principiantes 
em TK é o de comprar fitas cassete de longa duração e 
nelas gravar uma grande quantidade de programas. Após 
um certo período de experiência percebe-se que esta téc¬ 
nica apresenta dois problemas: 

1) Fitas de longa duração são mais delgadas e mais 
frágeis. 

2) Muitos programas numa única fita produzem buscas 
demasiadamente demoradas. 

0 aconselhável, então, é comprar fitas de curta dura¬ 
ção e gravar poucos programas nelas. 

0 ideal seria a gravação de um único programa por fi¬ 
ta. A busca seria imediata. 

Isto pode ser feito quando dispomos de programas 
longos. 

Se os programas forem curtos (1 a 4 K) e não exigi¬ 
rem armazenamento de dados, podemos digitá-los todos 
numa única sequência colocando no programa um menú 
inicial proporcionando a escolha. 

Obviamente este processo aumenta um pouco o tem¬ 
po de transferência de fita para a RAM do computador 
e exige expansão de memória. 

0 tempo gasto na transferência, porém, é altamente 
compensado pela economia na busca do programa. 

Entretanto, por mais curta que seja a fita, dificilmen¬ 
te ela será totalmente tomada pelo programa. Vale a pe¬ 
na, então, gravar o mesmo programa repetidas vezes: um 
pequeno acidente de gravação, uma interferência de uma 
emissora de FM, uma falha no revestimento da fita, põe 
o programa a perder. Uma gravação múltipla já diminui 



o risco de perda (lembre-se da Lei de Murphy). 

Para que o processo de repetição da gravação não se 
torne enfadonho, podemos usar um pequeno truque. 

Digamos, por exemplo, que se queira gravar, várias ve¬ 
zes, o programa "ARQUIVO" que é oferecido aos leito¬ 
res neste número. Basta então, acrescentar ao fim do 
programa as linhas mostradas na fig. 1, colocar a fita no 
começo, dar o comando 

GOTO 9000 
e ir tomar um cafezinho. 

980061S HUE “ r r o u iog- 

9010 PRINT "DIGITE ,l " BRERK " '* " 
98R0 PRUSE 300 
9038 GOTO 9800 

fig. 1 

A linha 9030 fará o processo se repetir n vezes. 
Quando este programa for carregado, novamente no 
computador, aparecerá a mensagem 

DIGITE "BREAK" 

mas não se apresse; se a pausa de tempo for superada o 
programa põe o computador no modo SAVE", mas 
não é apagado da memória. Os riscos que aparecem na 
tela, inclusive, são característicos da emissão e não da re¬ 
cepção. Basta digitar "BREAK" a qualquer momento e 
NEW LINE, que veremos a listagem do programa. 

Vamos então organizar nossa biblioteca de programas 
e cuidado para não tomar cafezinhos em excesso. 
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PROGRAMA DO LEITOR 

Crepe 


Luiz G.C. Antunes 


Este jogo é um jogo de dados muito conhecido nos 
cassinos de todo o mundo. 

Joga-se com fichas, voce joga contra a banca, que, nes¬ 
te caso é o computador. 

Se o resultado na primeira vez for 7, ou 11, a banca 
vence, se for 2, 3 ou 12, você vence. 

Se não for nenhum desses resultados, o jogo fica inde¬ 
finido, e jogam-se os dados novamente. 

Agora, se a banca repetir o número anterior, você per¬ 
de. E se a soma dos dados for 7 você vence. 

0flREM C-MICROMEGfi 1983 
1010 LET CT=0 
1020 CLS 
1030 PRINT 

104.0 PRINT Tfi3 9; M JOGO DE CREPE" 
1050 PRINT 

1060 PRINT "U.SfiBE RS INSTRUÇÕES 
(S /N ) 7 " 

1070 INPLTT R$ 

1060 IP R $ = " S " THEN GOTO 1310 
1090 CLS 

1100 PRINT "INSTRUÇÕES" 

1110 PRINT 

1120 PRINT -O CREPE E UM JOGO DE 
DRDGS.JOGR -SE COM FICHRS.U.JOG 
R CONTRR R BRNCR." 

1130 PRINT 

114.0 PRINT "SE O RESULTADO DOS D 
RDOS KR PPI MEIRR JOGRDR FOR 7 O 
U 11,A BRNCR UENCE." 

1150 PRINT 

1160 PRINT "SE FOR 2,3 OU 12.U.U 
ENCE" 

1170 PRINT 
1180 PRINT 
SSES,O JOGO 
GRM-SE OS 
1190 PRINT 

1200 PRINT "PRESSIONE R TECLA 
P/CONTINUAR." 



SE NRO FOR NENHUM DE 
FICR INDEFNIDO,E JO 
DRDOS DE NOUO-" 


<N 


INSTRUÇÕES (CONTINUA 


EU LINE> 

1210 INPUT B$ 

1220 CL_S 
1230 PRINT 
CRO):" 

124.0 PRINT 

1250 PRINT "AGORA,SE R BRNCR REP 
ETIR O PONTO RTERIOR,U.PERDE." 
1260 PRINT 

1270 PRINT "E SE R SOMR DOS DRDO 
S FOR 7,U. GANHA." 

1280 PRINT 

1290 PRINT "PRESSIONE R TECLA <H 
EU LINE> P/COHECAR R JOGAR." 

1300 INPUT 
1310 LET F = 10 
1320 CLS 

1330 PRINT "BEM UINDO R MESR DE 
CREPE." 

134-0 PRINT 

1350 PRINT "UOCE TEM ";F;" FICHR 
S - •• 


1360 PRINT 
1370 PRINT 
EIROS." 

1380 PRINT 
1390 PRINT 
CRUZEIROS. • 
14.00 PRINT 
1410 PRINT 
DINHEIRO 
1420 INPUT 
1430 IF R$= 
1440 PRINT 
1450 PRINT 
P/FICHA 
1460 INPUT 
1470 IF R$: 
1480 PRINT 
1490 PRINT 


"UOCE TEM ";CT;" CRUZ 
"CADA FICHfí UALE 100 


"OUER TROCRR FICHR P/ 
(S/N) 7" 

:"S" THEN GOSUB 1970 

"OUER TROCRR DINHEIRO 
CS/N) 7" 

:"S" THEN GOSUB 2080 
"OUER RPOSTRR (S/N) 7 


THEN GOTO 1890 


FICHAS" 


1530 

1530 

1390 


THEN C 


OR D ( 1) 


1500 INPUT A$ 

1510 IF R$o"S 
1520 PRINT 
1530 PRINT "QUANTAS 
1540 INPUT R 
1550 IF R > F THEN GOTO 
1560 IF R < 0 THEN GOTO 
1570 IF R =0 THEN GOTO 
1580 GOSUB 2330 
1590 DIM D(2) 

1600 LET D(l)=D1+D2 
1610 IF D(1)=7 OR Díl)=11 
OTO 1630 
1620 GOTO 1650 
1630 GOSUB 2210 
1640 GOTO 1850 
1650 IF D(l)=2 OR D Cl) =3 
=12 THEN GOTO 1670 
1660 GOTO 1690 
1670 GOSUB 2270 
1680 GOTO 185© 

1690 PRINT 

1700 PRINT "JOGO INDEFINIDO.PRES 
SIONE R TE CLR <NEU LINE> P/JOG 
RR NOUAMENTE OS DRDOS." 

1710 INPUT B$ 

1720 GOSUB 2330 
1730 LET D(2)=D1+D2 
1740 IF D ( 1) =D (2) 

1750 GOTO 1780 
1760 GOSUB 2210 
1770 GOTO 1850 

1780 IF D (2 )=7 THEN GOTO 1800 
1790 GOTO 182© 

1800 GOSUB 2270 
1810 GOTO 1850 
1320 LET D(l)=D(2) 

1830 GOTO 1690 
1840 PRINT 

1350 PRINT "OUER CONTINURR JOGAN 
DO (S/N) 7" 

1360 INPUT R$ 

1870 CLS 

•S" THEN GOTO 1320 
•SEU SRLDO E DE "; F; " 


THEN GOTO 1760 


1880 IF R* = ‘ 
1890 PRINT ' 
FICHAS" 
1900 PRINT 
1910 PRINT • 
S . " 

1920 PRINT 
1930 PRINT ‘ 


E DE 


■; CT; 


CRUZEIRO 


TENHA UM BOM DIA* 
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2180 REM SUB ERRO 

2190 PRINT -UR LOR ILEGRL.POR FRU 
OR REESCREUfl” 

2200 RETURN 

2210 REM SUB PERDEDOR 

2220 PRINT 

2230 PRINT "R BRNCfi UENCE." 

224-0 PRINT 

2250 LET F=F-R 

2260 RETURN 

227*0 REM SUB UENCEDOR 

22S0 PRINT 

2290 PRINT ** R BRNCR PERDE.** 

230© PRINT 

2310 LET F=F+R 

2320 RETURN 

2330 REM SUB DRDOS 

234.0 LET D 1 = INT C6*RND3 + 1 

2350 LET D2=INT (6*RND)+1 

2360 CLS 

2370 PRINT "O RESULTRDO DOS DRDO 
S E . . . - 

2360 PRINT RT 5.1G.;D1 
2390 PRINT RT 10.10;D2 
24-0© RETURN 
2410 SRUE '* CREP§‘* 

2420 GOTO 1000 
2430 ST OP 

O 


PROGRAMA DO LEITOR 


Tabela Price 


Samuel Ejchel 


Como sugestão e complementação ao problema do 
Ministro, queria lembrar que a conhecida Tabela Price. 
muito usada em negócios imobiliários, é justamente cal¬ 
culada com base em capitalização instantâneas. Assim o 
programinha anexo "Tabela Price" (fig. 1) pode ainda 
ser de utilidade prática para corretores, e merece ser di¬ 
vulgado. Com ele pode-se calcular, inclusive, a taxa para 
frações de ano, se "entrarmos" com N sendo a fração do 
ano. 

Exemplo: para achar o fator da Tabela Price para a 
prestação que amortiza uma dívida em 10 meses, en¬ 
traríamos com N = 10/12. Note-se porém, que os resul¬ 
tados são bastante próximos, mas não coincidem exata¬ 
mente com os tabelados. 0 valor da "taxa ano" deve ser 
dado como um número decimal, ou seja, se a taxa for 
9% a.a., o valor a alimentar será .09. 

O 



5 REM TR8ELR PRICE 
10 PRINT **T RXfl RNURL = * 
I 
I 

'PNOSr**; 


20 INPUT 
30 PRINT 
40 PRINT 
50 INPUT N 
60 PRINT N 
70 PRINT 


*’T , PR ICE = ” ; 

80 PRINT EXP CX*nT S ( ( (1 

+ 1 / 12 )**( 12 + N ) )-13 

EXEMPLO: 

TRXR RNURL=.Õ9 
RNOS=3 

T.PRICE-.031831737 

fig. 1 


1940 PRINT TRB 12; **TK CROUPIER. '* 

1950 STOP 

1960 REM SUB FICHR/DINHE IRO 

1970 CLS 

1980 PRINT "OURNTRS FICHRS 

1990 INPUT C 

2000 IF C > F OR C<0 THEN GOTO 197 

0 

2010 LET CR =C *100 

2020 LET CT=CT+CR 

2030 LET F =F —C 

2040 CLS 

2050 PRINT “U - TEM ; F ; " FICHRS E 
; CT; •* CRUZE IROS . •• 

2060 RETURN 

2070 REM SUB DINHEIRO/FICHR 

2080 CLS 

2090 PRINT "OURNTOS CRUZEIROS 7" 
2100 INPUT D 

2110 IF D > CT OR D < 0 THEN GOTO 20 

80 

2120 LET FP=INT (D/1003 

2130 LET CT =CT—D 

2140 LET F=F+FP 

2150 CLS 

2160 PRINT ** U - TEM " ; F; ” FICHRS E 
CT;- CRUZEIROS." 

2170 RETURN 
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PROGRAMA DO LEITOR 

O TK no Direito Trabalhista 
e Cível 


Dr. João Carlos Normanha Salles 



Os programas são aplicativos tanto para a área de Di¬ 
reito Trabalhista quanto Cível, pois uma das maiores di¬ 
ficuldades dos advogados militantes é a realização da li¬ 
quidação processual, ou seja, transformar o direito reco¬ 
nhecido pela justiça de seus clientes no correspondente 
em dinheiro a ser recebido da parte condenada. 

Quando o usuário fornece a data do ajuizamento, a 
data presente, o valor da parcela, o programa aplica to¬ 
dos os dispositivos legais para atualização desta parcela. 
Posteriormente, quando não houver mais parcela alguma 
a ser atualizada, o programa oferecerá um resumo deta¬ 
lhado de todas as atualizações que foram feitas no mes¬ 
mo processo e ainda a quantia a ser recolhida a título de 
imposto de renda retido na fonte para Receita Federal. 

fig. 0 e 1 

*iE5 « 11 RNG s 1982 

•JUROS CRLCULRDOS EM 2 MESES 
PRINCIPAL = CRÍ 100800 
ÍNDICE = 1.7 


URLOR PTUfiL = CRÍ 170000 
TRXR DE 1 POR CENTO 
vJUROS = CRÍ 1700 
JRLOR TOTRL CR$ 171700 


DQ PRIHCIPRL =CR$ 22000© 
DO CORRIGIDO = CR$ 36800® 
DOS JUROS = CRÍ 020© 

R$ 377200 

I.R. (DRRF) = CR $ 4.59 


fig. 0 


1 REM ‘TP.RBftLH IST R ” 

2 REM DR- J C NORMRNHR SRLLES 


3 

CLS 


4 

PRINT 

”ATUALIZRCRO TRA6 

TLHISTR” 


5 

PRINT 


10 

PRINT 

•‘TECLE MES RTURL E <N 

EU LINE > ” 


20 

INPUT 

R 

30 

PRINT 


40 

PRINT 

“TECLE ANO ATUAL E <N 

EU LINE >” 


50 

INPUT 

B 

60 

PRINT 


7© 

PRINT 


60 

PRINT 

“CONFIRA: MES=* ”;R;” 

RNO = 

M ; B 


90 

PRINT 


93 

PRINT 


95 

PRINT 


100 

PRINT 


110 
> E 

PRINT 

-TECLE ME9 k AJUIZAMENT 
< NEU LIh«> ” 

120 

INPUT 

C 

130 

PRINT 


140 

PRINT 

“TECLE RNO AJUIZAMENT 

O E 


< NEU LINE > '* 

150 

INPUT 

D 

160 

PRINT 


165 

PRINT 


170 

PRINT 

“CONFIRA: ME5= ”;C;” 

ANO = 

D 


180 

PRUSE 

200 

190 

CLS 


200 

PRINT 

RT 10,0 ; *’JA ESTOU PRO 


<4T O PfiRfi RTURLIZRR 


RS PRRCELRS: 

TECLE 05 DRDOS 

SOLICITADOS 

E < NEW L INE > ** 

202 LET 0=0 
204- LET R=© 

206 LET 5=0 
208 LET T =0 
210 PAUSE 200 
320 CLS 

330 LET E=(<B-D)*12)+(A-C) 

34-0 PRINT "MES 7'* 

350 IMPUT F 

360 PRINT RT 0,4.;” = ”; F 

57© PRINT RT ©,25/"RND 7" 

360 INPUT G 

390 PRINT RT 0,19;'" = ” ; G 

4-00 LET H= ( iB-G> *12) + (R-F) 

4-10 IF H > E THEN LET I =E 

4-20 IF E > =H THEN LET I=H 
4-30 IF 1 = 1 THEN PRINT RT 2,0 j ” J 

JROS CRLCULRDOS EM 1 MES” 

4-40 IF I>1 THEN PRINT RT 2,0; ”J 

UROS CRLCULRDOS EM ”;I;” MESES” 
4-50 PRINT RT 4-, O ; "PRINCIPAL 7” 
4-60 INPUT ü 

4-70 PRINT RT 4-, 10;” = CRÍ ”;J 

4-60 PRINT RT 6,0;”INDICE 7” 

fig. 1 
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49* INPUT K 

500 PRINT AT 6,7;" = 

510 PRINT RT 8,0;"- 


;k 


520 LET L = INT C100*CJ*K))/100 
530 PRINT RT 10,0;"URLOR RTURL 
» CR$ ";L 

540 LET M = INT ( (1/2) * CL) ) /100 

545 LET 0=1/2 

550 PRINT RT 14,0;"JUROS = CR* 

555 PRINT RT 12,0;"TAXA DE ";O; 
’ POR CENTO" 

560 LET N=L*M 

570 PRINT RT 16,0;"URLOR TOTRL 
DR* ";N 
580 LET Q=Q+J 

590 LET R=R+L 

600 LET 5=S+H 

610 LET T=T+N 

620 LET U=INT (5*0.05) 

636 PRINT RT 20^0;" 


THEN GOTO 320 
THEN GOTO 700 


640 INPUT 2* 

650 IP 2 * = "5' 

660 IP Z* = ,, N t 
700 CL5 

710 PRINT RT 0,11, -J 

720 PRINT RT 2,0; "C_ 

730 PRINT RT 4,0;"DO PRINCIPAL 

—CR* ";O 

740 PRINT RT 6,0;"DO CORRIGIDO 
— CR* " * r 

750 PRINT RT 8,0;"DOS JUROS = C 

R* S 

760 PRINT RT 10,0; 

VT 

770 PRINT RT 14,0;"I.R.CDARP)= 
CR * " ,* U 

780 PRINT HT 20,0;" 


790 INPUT Y* 

800 IP Y*="S" THEN GOTO \ 
810 IP Y*="N" THEN CLS 
820 PRINT RT 10,10,"FIM" 


fig. 1 


0 programa seguinte diz respeito a atualização de pro¬ 
cessos cíveis, que recentemente pela lei 6899 de abril de 
1981 passaram também a ser objeto de correção 
monetária. Esta correção é devida somente a partir da vi¬ 
gência da lei segundo regulamentação feita. Por esta ra¬ 
zão o programa está, inclusive, em obediência a este dis¬ 
positivo legal preparado para rejeitar informações ante¬ 
riores à vigência da lei (fig. 2). 


FIES 12 RNO 1982 

JUROS NO PERÍODO DE 5 MESES 
NR TRXR DE 2.5 POR CENTO 
QRTN NR EPOCR = CR* 2800 
ÜRTN RTURL = CR* 4000 
PRINCIPAL DE CR* 10000C* 
******************************* 


URLOR RTURL CR* 142857.14 
JUROS UALEM CR* 3571.42 
SOMR CR* 146428.56 


DO PRINCIPAL = CR* 200000 
DO CORRIGIDO = CR* 342857.14 
DOS JUROS = CR* 8571.42 
■SEBI=CR* 351428.56 
OU 87.8571 ORTN 


******************************** 

HONORÁRIOS DE 50 POR CENTO 

NO URLOR DE CR$ 175714.28 OU 

43.9285 ORTN 

COM I.R. DE CR$ 8765.7 

E LIQUIDO DE CR* 166928.58 


fig. 2 


> 
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LIGUE-SE À 
INFORMÁTICA 


FAÇA COMO 0$ 
FUNCIONÁRIOS DA 
ALCAN, XEROX, 
SEARLE, COPAS, 
INTELPA, DARLING, 
AIR SERVICE: 


MATRICULE-SE NA 
S.O.S COMPUTADORES. 

CURSOS DE 


BASIC e COBOL. 

• Número limitado de alunos por 
classe • 1/3 de todas as aulas com uso 
direto dos computadores, inclusive nos cursos de 
Cobol • Professores altamente qualificados • Cursos 
apostilados e apresentados com transparências • Modernas 
instalações com vários equipamentos Dismac, Prològica, 
Sysditi entre outros • Preços extremamente acessíveis. 



COMPUTADORES 


A NOVA MANEIRA DE 
APRENDER A PROGRAMAR 


NÚCLEO I 

Av.Pacaembú. 1.280 
Fonas. 66.7656/66.1513 

_ 


NÚCLEO II 

R.Tomás Carvalhal. 380 
(Próximo Estação Metrô Paraíso) 
Fone: 570.6097 

___/ 
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1 REM M CIUEL M 

2 REM DR. «J C NORMflNHfi SfiLLES 

5 CLS 

6 PRINT " RTUftLIZRCftO CIU 

EL*’ 

10 PRINT 

20 PRINT '•TECLE MES RTUfiL E < 

NE U L INE > '* 

30 INPUT A 

4-0 PRINT 

50 PRINT -TECLE RNO RTURL E < 

NEU LINE >- 
60 INPUT B 

70 PRINT 

80 PRINT “CONFIRA: MES R; " - 

RNO -;B 

90 PRINT 

100 PRINT -TECLE MES AJUIZAMENT 

O E < NEU LINE>“ 

110 INPUT C 

120 PRINT 

130 PRINT “TECLE RNO AJUIZAMENT 

O E < NEU LINE>" 


14.0 

INPUT 

D 

150 

PRINT 


160 

PRINT 

"CONFIRA: MES ";C;" - 

RNO 

; D 


170 

PRINT 


180 

PRINT 

"URLOR ORTN RTURL = C 

185 

INPUT 

M 

186 

PRINT 

M 

187 

PRINT 


189 

PRUSE 

200 

190 

PR INT 


195 

CLS 


200 

PRINT 

"ESTOU PRONTO PRRR CO 

RRIGIR AS" 


210 

PRINT 


220 

PRINT 

"PARCELAS. TECLE OS D 

RD OS 

QUE" 


230 

PRINT 


24.0 

PRINT 

"FOREM SOLICITADOS E 

< NEU 

LINE > 

•• 

24.2 

LET R 

= 0 

24-4- 

LET S 

= 0 

24.6 

LET T 

=0 

24-8 

LET U 

= 0 

250 

PRUSE 

300 

260 

CLS 


270 

PRINT 

RT 0.0;"MES 7" 

280 

INPUT 

E 

290 

PRINT 

RT 0,4.; E 

300 

PRINT 

RT 0,10;"RNO 7" 

310 

INPUT 

F 


320 PRINT RT 0,14-;F 

330 LET G=((B-F)fl2)+(A-E) 

34.0 LET H=( (B-D) *12) + ÍA-C) 

350 IF H>=G THEN LET I=G 
355 IF H<=G THEN LET I=H 
360 IF 1=1 THEN PRINT RT 2,0;"U 
UROS NO PERÍODO DE UM M£5“ 

370 IF I>1 THEN PRINT RT 2,0;"U 
UROS NO PERÍODO DE ";I;" MESES" 
360 LET U = I/2 


390 PRINT RT 4.,0, "NA TRXR DE "; 

J; " POR CENTO" 

4.00 PRINT RT 6,0; "ORTN NR EPOCR 

= CR % 7" 

4.10 INPUT K 

4.20 IF K<877.86 THEN LET L=877. 

36 

4.25 IF K <877.86 THEN PRINT RT 6 

20; -877.86 (4-/81) - 
4.30 IF K >877.86 THEN LET L=K 

4-4.0 PRINT RT 6,20; L; 

4.50 PRINT RT 8,0; -ORTN RTURL = 

CR % ; M 

4-70 PRINT RT 8,17; M 

4-80 PRINT RT 10,0; “PRINCIPAL DE 

CR$ 7" 

4.90 INPUT N 
500 PRINT RT 10.17; N 
510 PRINT RT 12,0; - **** ******** 
********************* 

520 LET O = INT (100* CN*M) /L) /100 
530 PRINT RT U,0; "URLOR RTURL 
**; 8 * 

54-0 LET P = INT (0*U) 7100 
550 PRINT RT 16,0;“JUROS URLEM 
CR$ "; P 
560 LET 0=0 *P 

570 PRINT RT 18,0; "SOMA CR$ - ; © 
572 LET R=R+N 
374 LET 3 =<3*8 
576 LET T=T+P 
578 LET U=U+Q 
580 PRINT RT 20 ,0;" 


THEN GOTO 260 
THEN GOTO 650 


590 INPUT Y $ 

600 IF Y$="S' 

610 IF Y$=“N’ 

650 CLS 

660 PRINT RT 0,12;*J 

670 PRINT RT 2,0 ; "[I_ 

680 PRINT RT 4,0,"DO PRINCIPAL 
= CR$ -;R 

690 PRINT RT 6,0;-DO CORRIGIDO 
- CR $ -;S 

700 PRINT RT 8,0,-DOS JUROS = C 

"' T _ 

710 PRINT RT 10.0; “HBKH=CR$ 

U 

720 LET RE = INT ( (10000*U) /M) 710 
000 

730 PRINT RT 12,0; "OU "; RE; " OR 
TN" 

735 PRINT RT 13,0;"************ 
********************" 

74.0 PRINT RT 14,0; “PERCENTUAL H 
GNORRRIO 7" 

750 INPUT U 

760 PRINT RT 14,0,"HONORÁRIOS D 
E ";U;" POR CENTO" 

770 LET RB = INT (U*U) 7100 
780 LET AC = INT (RB) *0.05 
790 LET RD = INT ( (10000*AB) /M) 71 
0000 

800 PRINT RT 15,0;"NO URLOR DE 
CR$ —; RB; - OU" 

810 PRINT RT 16,0; RD;- ORTN" 

815 PRINT RT 17,0;"COM I.R. DE 

CR % -;RC 

816 LET X=RB-AC 

817 PRINT RT 18,0;"E LIQUIDO DE 

cr $ —;x 

820 PRINT RT 20 ,0; 


830 INPUT Z* 

84-0 IF Z$ = "S" THEN GOTO 5 
850 IF Z$="N" THEN CLS 
860 PRINT RT 11,11;"FIM" 


Ambos os programas contam os juros a partir da data 
de ajuizamento da ação. 


O 
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NOVIDADES 

TPLAK AMPLIANDO 
O UNIVERSO DO TK 


Flavio Rossini 


0 computador surge, para auxiliar o homem, como 
uma máquina que não substitui seus músculos mas sim 
seu cérebro, realizando tarefas complicadas e repetiti¬ 
vas, executando cálculos infalivelmente e com veloci¬ 
dades fantásticas, deixando para o homem tarefas mais 
nobres. 

Sem dúvida o que mais contribuiu para a populariza¬ 
ção dos computadores foi o aparecimento dos compu¬ 
tadores pessoais, os quais surgiram às centenas ... e no 
meio deles, apareceu um pequeno, discreto, simpático e, 
principalmente, acessível a todos: o TK. . . Assim, ele 
começou a fazer parte de muitos lares pelo mundo afo¬ 
ra, quase sempre com o seguinte pensamento: TK, o 
meu primeiro computador. . . Mas ele é orgulhoso. Ele 
diz: "se os outros computadores podem tocar música, eu 
também posso. Se os outros podem fazer desenhos com¬ 
plicados, eu também posso. Posso até comandar o fun¬ 
cionamento de outras máquinas ou me comunicar por 
telefone com um dos meus 2.000.000 de irmãos. Posso 
fazer tudo que qualquer outro faz. 

De fato, apesar de não ser tão rápido e tão imponente 
ele tem o mesmo cérebro (CPU) que os "grandes", além 
de uma grande vantagem: é acessível, em termos de pre¬ 
ço, o que o tornou o computador mais vendido da His¬ 
tória. . . Não só, mas ele é versátil podendo crescer junto 
com sua imaginação para fazer mil coisas. O truque está 
nas conexões traseiras: atualmente, você já pode ligar a 


impressora e a expansão da memória. Mas e se você pu¬ 
desse ligar um circuito para fazer sons, ou desenhos, ou 
até mesmo fazê-lo falar? Ou comandar aparelhos exter¬ 
nos, um mini-robô, talvez?. . . Ou simular que tem gente 
em casa quando você vai viajar, para enganar os ladrões? 
Tudo isto já é possível com o surgimento dos periféricos 
TplaK. O que vem a ser eles? São placas de circuito im¬ 
presso que você conecta diretamente ao seu TK e que, 
aliadas a sua imaginação, permitirão ao seu microcom¬ 
putador a realização de façanhas, as quais ele era INJUS¬ 
TAMENTE julgado incapaz de fazer. 

Vamos este mês comentar três placas bastante interes¬ 
santes: 

a) placa de "beep" (BPO-TX3), que produz um sinal so¬ 
noro ao toque da tecla oupor comando de programa. 

b) placa de entrada/saída (I/0-TX2), que permite o co¬ 
mando de dispositivos externos, enviando e receben¬ 
do sinais binários. 

c) placa de caracteres (CHR-TX4), que permite criar no¬ 
vos caracteres para o TK. 

A primeira delas produz um sinal sonoro cada vez que 
alguma tecla é pressionada, permitindo maior facilidade 
para a inserção de programas no computador; além dis¬ 
so, ao fazer em SAVE ou LOAD, o "beep" toca durante 
a passagem dos dados do gravador para o computador e 
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vice-versa, parando no final, permitindo a você executar você dirige um avião que deve atingir um alvo, produzin- 

outras coisas enquanto aguarda a passagem do programa. do um sinal sonoro ao atingMo. 




FIGURA 1 


FIGURA 2 


PLACA BPO TX3 - SONORA BIP 

Mediante sonorização bip, assegura automaticamente ao usuário a entrada 
do dado correspondente à tecla digitada. Também sonoriza bip por progra¬ 
mação. ou seja, "bipa" nos momentos desejados, durante a execução do 
programa. Auxilia o uso dos comandos SAVE e LOAD, interrompendo o 
sinal sonoro ao final das operações. 


PLACA l/O TX2 - ENTRADA/SAIDA 

Apresenta oito entradas e oito saidas controladas pelo usuário por progra 
mação. Possibilita o comando de aparelhos elétricos e/ou eletrônicos, tais 
como eletro domésticos, motores elétricos, fontes de alimentação etc. Per¬ 
mite, inclusive, o comando de máquinas industriais como, por exemplo, um 
torno-revólver. Admite a montagem de várias similares em série, aumentan¬ 
do proporcionalmente o número de entradas e de saídas de controle. 


Finalmente, este "beep", que pode ser ligado e desli¬ 
gado à vontade, pode também ser acionado pelo próprio 
programa. . . Imagine um joguinho onde você faz com 
que o "beep" toque sempre que um avião atinge um 
alvo. E já que falamos em jogos, podemos falar sobre a 
segunda placa: ela permite comandar (ligar ou desligar) 
até 8 dispositivos externos quaisquer através do seu pro¬ 
grama. 0 ligamento é sinalizado através de 8 leds. 

Além disso, ela possui 8 entradas para receber sinais 
externos. Esqueçamos, por enquanto, o comando de dis¬ 
positivos externos e vamos pensar apenas nos LEDS. 
Que tal se no "joguinho do avião" os leds simulassem 
um painel de controle: falta de combustível, vento mui¬ 
to forte, tiro efetuado . . . Cinco das 8 entradas pode¬ 
riam ser utilizadas para um joystick que comanda a di¬ 
reção do avião, duas outras entradas para o acelera¬ 
dor. . . Assim, associando essas placas com a de "beep", 


Naturalmente, usando a imaginação pode-se chegar 
aos mais altos níveis de sofisticação. Com a ajuda de re¬ 
lês, pode-se até automatizar uma máquina que tenha 
motores, indicadores de fim de curso, enfim, quase um 
mini-robô 

Com esta placa, o TK pode ligar motores, disparar si¬ 
nais de alarme, e ser programado para execução de vá¬ 
rias tarefas. 

E que tal se esta placa for usada para ligar e desligar 
"aleatoriamente", 8 luzes da sua casa enquanto você es¬ 
tiver viajando para enganar os ladrões? Ou comandar o 
seu gravador para facilitar o SAVE e o LOAD? Ah, e se 
8 entradas e 8 saídas forem poucas, várias placas (até 
256) podem ser ligadas ao TK, cada uma podendo co¬ 
mandar 8 saídas e receber 8 entradas. 

t> 
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FIGURA 4 

PLACA CHR TX4 - CARACTERES 

Transforma os caracteres da lógica Sinclair em caracteres criados pelo usuá¬ 
rio. É acompanhada por programa em fita cassete, possibilitando seu uso 
imediato. Equipada com memória de 1 Kb para a armazenagem dos caracte¬ 
res criados pelo usuário, possibilitando sua utilização em diferentes progra¬ 
mas. 


cuias, ou letras gregas, fórmulas químicas . . . , quem sa¬ 
be fazer um jogo de cartas e poder desenhar os quatro 
naipes? Tudo isso é possível com a placa de caracteres 
que permite a criação de qualquer caracteres à sua esco¬ 
lha. Esta placa possui uma memória RAM na qual você 
pode colocar os modelos dos caracteres que deseja. 

Naturalmente, "compondo caracteres", você poderá 
até fazer desenhos de alta resolução. . . 


Mas, voltando ao joguinho, se você quisesse um avião 
mesmo na tela e não apenas um desenho utilizando os 
caracteres normais do TK? Ou se você quisesse jogar xa¬ 
drez, utilizando o desenho real das peças na tela e não 

apenas suas iniciais? Ou escrever utilizando letras minús- 

> 


FIGURA 5 

PLACA CHR TX4 - CARACTERES 

A foto mostra uma aplicação da Placa CHR TX4 Neste caso, o usuário 
usou a criação de novos caracteres para desenhar na tela essa cabeça de ca¬ 
valo. A montagem da CHR TX4 é sobre uma Placa MB2 TX1 (Placa Mãe) 
conectada a um computador TK82-C. 

Realmente estas placas ampliam o já gigantesco uni¬ 
verso do TK, tirando qualquer "complexo de inferiori¬ 
dade" que ele pudesse ter em relação a seus irmãos 
maiores. 

O 


FIGURA 3 

PLACA l/O TX2 - ENTRADA/SAIbA 

Placa TX2, montada com placa MB2 TX1 (Placa Mãe), em computador 
TK85. 
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CURSO DE BSlsOEI TK 


AULA 3 


Pierluigi Piazzi 
Flavio Rossini 


Vamos aprender agora uma função muito interessante 
que possibilita o computador "chutar" números; para 
entendê-la, imagine que dentro do computador existam 
INFINITAS cartas, cada carta possuindo um número 
compreendido entre 0 e 1; se você ordenar: 


PRINT RND 


(NEW LINE) 


0 computador escreverá o valor da primeira carta. 
(Note que RND é uma função e portanto você deve mu¬ 
dar o cursor para B e apertar a tecla T). Anote este 
valor num pedaço de papel. Faça novamente: 


PRINT RND 


Anote o novo valor (que corresponde à segunda carta) 
e repita a operação; você terá então o valor das primeiras 
três cartas. Desligue o computador; ligue-o novamente e 
repita a operação; você obterá novamente as primeiras 3 
cartas. No entanto, existe um comando que faz com 
que o computador "CHUTE" qual a primeira carta que 
ele deve escolher deste monte INFINITO, estando as 
próximas em seguida; dessa forma, você obterá sempre 
sequências diferentes. Este comando é a KEY-WORD 
RAND; faça 


RRND 


(NEW LINE) (na tecla T) 


e a seguir execute a operação acima. Desligue e ligue o 
computador faça RAND e repita. Desta vez os números 
serão diferentes (Se, por coincidência do destino, isto 
não ocorrer, repita a operação. Dificilmente você irá 
conseguir isto 3 vêzes seguidas. . . ). 

Ordene agora o seguinte: 


PRINT 1®0^PNL> 


ora, o que você espera obter? Novamente um número 
"chutado" só que desta vez entre 0 e 100, não mais en¬ 
tre 0 e 1. 

Se tirarmos a parte INTEIRA deste número, podere¬ 
mos usá-lo para jogar na LOTO. Para isto, existe a fun¬ 
ção INT (tecla R): 

PRINT INT <100*RND) 

Assim, obtém-se um número entre 0 e 99. 

Faça isto 5 vezes e você terá 5 números para jogar na 
LOTO essa semana. Vamos então agora "programar" o 
computador para que ele "execute" essas ordens? Colo¬ 
que então o seguinte programa: 


1© RFíND 
20 PRINT 
30 PRINT 
4-0 PRINT INT 
50 PRINT INT 
PRINT INT 
70 PRINT INT 
80 PRINT INT 


LOTO” 


(RND *108) 
(RND*100) 
(PN£>*100> 
( RND *100) 
íRNDfclO©) 


execute-o diversas vêzes (RUN e NEW LINE). Cada vez 
em que ele for executado, ele pega as próximas 5 cartas 
com números entre 0 e 1, multiplica-os por 100 e "des¬ 
preza" as casas depois da vírgula; assim, cada vez, você 
terá 5 números INTEIROS entre 0 e 99. 

Observe que tivemos que repetir 5 vêzes a mesma ins¬ 
trução; imagine se precisássemos repeti-la 100 vêzes. 
Não seria muito agradável ter que fazer isto. Felizmente, 
existem duas KEY-WORDS no TK que permitem orde¬ 
nar ao computador que ele execute diversas vêzes uma 
(ou mais) instruções. Para isto, imagine que alguém peça 
para você repetir 5 vêzes uma dada palavra; para fazer is¬ 
to, cada vez que você diz a palavra, você deve estar 
"contando" em algum lugar da sua cabeça ("memória") 
o número de vêzes que você a repetiu. Da mesma for¬ 
ma, se desejarmos que o computador repita uma dada 
instrução, precisamos dizer em que VARlAVEL da me¬ 
mória ele pode CONTAR o número de vêzes em que ele 
a repetiu. A estrutura deve ser a seguinte: 

_ _ _ÈL 
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C FOR variável = n9 inicial TO nP final 
INSTRUÇÕES A SEREM REPETIDAS 
NEXT variável 

As Key Words FOR e NEXT estão nas teclas F e N 
respectivamente; o TO está na tecla 4 (não adianta escre¬ 
ver as letras T e O; deve ser SHIFT 4); assim, o programa 
anterior poderia ser escrito da seguinte maneira: 


Execute o programa. Veja, você ordenou que ele es¬ 
crevesse a própria variável onde ele está CONTANDO. 
No entanto, como ele só tem 22 linhas disponíveis, irão 
aparecer na tela os números de 1 a 22. Mas nós queria- 
mos que ele contasse até 50; ora, basta mandá-lo conti¬ 
nuar. Pressione: 

CONT (tecla C)e NEW LINE 


10 RRND 

£0 PRINT “LOTO" 

30 PRINT 

4-0 POR 1=1 TO 5 

50 PRINT INT <100*RND) 

50 NEXT I 

Note que usamos a variável I para fazer com que ele 
contasse de 1 até 5. Lembre-se sempre então: para repe¬ 
tir uma ou mais instruções elas devem estar ENTRE um 
FOR e um NEXT A este tipo de estrutura chamamos 
LOOP de repetição. Experimente então executar o pro¬ 
grama. Que modificação você deverá fazer se quisesse 
obter 10 números e não 5? 

Neste ponto, várias observações são necessárias: 

a) ao terminar um loop de FOR-NEXT, a variável con¬ 
tadora estará com um valor de uma unidade maior do 
que o valor final da instrução de FOR De fato, experi¬ 
mente fazer agora o seguinte comando direto: 

PRINT I (NEW LINE) 

b) a variável contadora, ao contrário das variáveis usadas 
com a instrução LET pode ter somente uma letra. Com 
a instrução LET a variável pode ter quantas letras quiser¬ 
mos, inclusive números, desde que o primeiro caractere 
seja uma letra. 

c) a função INT fornece como resultado o número intei¬ 
ro de valor imediatamente inferior ao seu argumento; 
assim temos: 

INT 5.76=5 
INT -5.76=-6 

d) numa expressão matemática, todas as funções (cursor 
0) tem prioridade máxima; assim, por exemplo, INT 
3.4* X é diferente de INT (3.4* X). No primeiro caso, 
sendo a função prioritária com relação às demais opera¬ 
ções, teremos: 


e veja o que acontece. Repita novamente (quando o pro¬ 
grama parar) até obter os 50 números. 

Vejamos agora como executar o programa anterior 
sem que ele pare. Note que os números são "impressos" 
de cima para baixo, parando ao chegar no fim da tela; 
existe um comando que faz com que os números sejam 
escritos de baixo para cima sem interromper o progra¬ 
ma. Este comando é a KEV-WORD SCROLL (tecla B) e 
ao ser colocado ANTES do PRINT, ele simplesmente 
"rola" a tela para "cima"; assim acrescente a linha 45: 

4-5 SCROLL 

e execute o programa. Veja o efeito. Perceba que para 
cada PRINT que colocarmos é necessário um SCROLL, 
experimente acrescentar mais duas linhas ao programa 
de maneira que ele fique: 


40 FOR 1=1 TO 50 

45 SCROLL 

50 PRINT I 

53 SCROLL 

56 PRINT *' PflZ ** 

60 NEXT I 


Se você não colocar o segundo SCROLL, o programa 
não funcionará. Execute então o programa. Se você 
desejar "pará-lo" antes que ele termine (não vale desligar 
o computador) basta apertar a tecla BREAK (a mesma 
do SPACE). Para continuar, é só apertar CONT; note 
que este último sempre LIMPA a tela antes de mandar 
continuar o programa. 

Neste ponto, podemos falar um pouco sobre os núme¬ 
ros que aparecem no canto inferior esquerdo da tela 
quando o programa para; o número à esquerda indica o 
"por quê" do programa ter parado; o número à direita, 
indica a linha onde o programa parou. Assim, o código 
0 indica tudo OK; se você deixar o programa acima ter¬ 
minar "sozinho" você obterá o código: 


INT 3.4*X=3*X 

Agora, retire as linhas 10, 20 e 30 do programa e 
substitua as linhas 40 e 50 de tal maneira que seu pro¬ 
grama fique: 


0/60 

(tudo OK; programa parou na linha 60). 

O código D indica que o programa parou devido a um 
BREAK; se você parar o programa assim, irá obter: 


40 FOR 1=1 TO 50 
50 PRINT I 
60 NEXT I 


D / número que depende do instante em que 
você apertou a tela 


> 
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Estes códigos aparecem no fim do manual do TK; no 
decorrer do curso, procuraremos analisá-los todos. 

Vamos agora relembrar o efeito do Retire as li¬ 
nhas 45 e 53 e, a seguir, modifique a linha 50 para: 

50 PRINT I; 

e execute o programa. 

A seguir, acrescente um; também no final da linha 56: 
56 PRINT M PR2“ ) ; 

Lembre-se bem do efeito do que é informar ao 
computador que o próximo PRINT deverá ser feito ao 
lado da última coisa que foi impressa. 

Vamos melhorar um pouco a tela, modifique as linhas 
50 e 56 de tal maneira que o programa fique: 

4-0 POR 1 = 1 TO 50 
50 PRINT j; ” 

56 PRINT ”PRZ 11 , 

6© NEXT I 

Lembre-se que para obter o espaço em branco deve-se 
apertar a tecla SPACE Após executar o programa 
apague-o (usando NEW) e vamos introduzir uma nova 
função: TAB (letra P) que, analogicamente a uma má¬ 
quina de escrever, faz uma tabulação, ou seja, faz com 
que a impressão comece na coluna que desejarmos; ex¬ 
perimente fazer: 

10 POR 1 = 1 TO 50 
20 PRINT TRB 10,1 
30 NEXT I 


Note que os números são escritos a partir da coluna 
10. O que aconteceria se modificássemos a linha 20 para: 

2© PRINT TRB I; 1 

Faça esta modificação e veja o que ocorre. Você está 
usando uma variável para fazer a tabulação. Acrescente 
então a linha 15: 

15 5CROLL 

e note o efeito. Note que quando o argumento do TAB 
for maior que 31, o computador "dá a volta" para reco¬ 
meçar a escrever no início da tela (para perceber isto no 
IP programa você deverá fazer dois CONTs). Para fir¬ 
mar bem o efeito do TAB e do SCROLL, altere nova¬ 
mente a linha 20: 

2© PRINT TRB lj IjTflB (2*1) ; "X” 

execute o programa deixando a linha 15 SCROLL e a se¬ 


guir retirando-a. (Neste caso, não esqueça do CONT). 

Perceba que se o argumento da função TAB não for 
inteiro, o computador automaticamente calcula a parte 
inteira para fazer a impressão na coluna certa. O mesmo 
é válido para a função AT 

Vejamos agora o efeito que a (vírgula) causa na 
impressão’; modifique a linha 20 de tal maneira a termos 
o programa: 


10 FOR 1=1 TO 5© 
20 PRINT I, 

3© NEXT I 


Note que a vírgula desloca a próxima posição de 
PRINT de 1/2 tela. O que ocorre se você modificar a li¬ 
nha 20 para: 


20 PRINT 


Tente repetir o processo para 3, 4 e 5 vírgulas e repa¬ 
re no efeito. 

Para finalizar as "palavras novas" deste capítulo, va¬ 
mos supor que quiséssemos uma "tela" da seguinte ma¬ 
neira: 

21 

20 

19 

16 

17 

16 

15 

14 

13 

12 

11 

1© 

9 

6 

7 

6 

5 

4 

3 

o 

1 

0 

Isto pode ser feito de maneira análoga à que fizemos 
agora há pouco para escrever na outra diagonal, se o com¬ 
putador contar de 21 para 0, ou seja, em contagem re¬ 
gressiva; para isto faça: 


10 FOR 1=21 TO © STEP -1 
20 PRINT TRB I;I 
30 NEXT I 


A palavra STEP está na tecla E, e ela significa de 
"quanto em quanto" o computador deve contar. Note 
que ao ser omitida como fizemos até agora o compu¬ 
tador assume STEP igual a 1, ou seja, conta de 1 em 1; 
no caso, vai de —1 em —1; o STEP pode ter qualquer va¬ 
lor; experimente mudá-lo para —2. 

Finalizando, vamos apresentar um pequeno programa 
para recordar o que vimos até aqui inclusive a função 
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LOTERIA 


10 RAND 
20 LET N = 10 
30 FOR I = 1 TO N 

40 LET A= INT (RND*22) 
50 LET B= INT (RND*32) 
60 PRINT AT A, B; I 
70 NEXT I 


Repare que a linha 40 "gera" um número aleatório 
entre 0 e 21 e que a linha 50 um número entre 0 e 31 
que correspondem respectivamente às linhas e colunas 
da tela; assim iremos escrever os números de 1 a 10 em 
lugares "aleatórios" da tela. Experimente a seguir subs¬ 
tituir a linha 20 por: 

20 LET N = 20 

E execute novamente o programa. 

Exercícios: 

1) Faça um programa que produza o efeito diagonal co¬ 
meçando à direita em cima (como no penúltimo progra¬ 
ma ) SEM utilizar STEP 

2) Faça um programa que escreva várias vezes a palavra 
AMOR em vídeo reverso (que tenha no começo e no fim 
um caractere de SPACE também em vídeo reverso) em 
diagonal, começando no canto superior esquerdo. 




3) Faça um programa que gere 13 números aleatórios en¬ 
tre 1 e 3 e apresente a seguinte saída: 


LOTERIA 



1 


2 


2 


3 


2 


1 

> 13 n°s aleatórios 

2 


3 





a seguir, implemente a saída para que ela fique assim: 




Jogo 1 

Coluna 2 


Jogo 2 

Coluna 3 


Jogo 9 

Coluna 1 


Jogo 10 

Coluna 2 


Jogo 11 

Coluna 3 


Jogo 12 

Coluna 1 


Jogo 13 

Coluna 2 



Note que a palavra COLUNA não deve aparecer deslo¬ 
cada nos jogos 10, 11, 12 e 13. Finalmente, estude um 
método para que a saída na tela seja: 


LOTERIA 

Col. 1 

Empate 

Col. 2 

Jogo 1 

Jogo 2 

X 

X 


Jogo 3 


X 


Jogo 13 



X 


4) Faça um programa que "encha" a tela de asteriscos 
(*) a partir da posição 10, 10. _ 


PULO 
DO SAPO 



0000 0000 <9000 0000 

♦♦♦♦ O000 ♦♦♦♦ 0000 


» fs 

£ BB 


b a» 

!*• b 05 

BB 

n RR 

P £ 


O mais recente lançamento da MULTISOFT para o 
seu TK (TK82, TK83 e TK85). 

Emocionante aventura onde você conduzirá o 
sapo desde o ponto de partida, até uma casa vazia. 

Você deverá cruzar a auto-estrada, sem ser 
atropelado e, em seguida, atravessar um caudaloso 
rio pulando sobre tartarugas e troncos que passam flutuando. 
Para adquiri-lo, basta enviar carta com seu nome 
e endereço completos, autorizando o prazo de 
entrega de 15 dias, anexando cheque no valçr de 
Cr* 5.690,00, nominal à MULTISOFT INFORMÁTICA 
LTDA. ■ Cx. Postal 54.121 - CEP 01296 - Sâo Paulo - SP 


fiWOSÕFT 

INFORMÁTICA LTDA-V^ 
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AULA 2 


Flavio Rossini 

Este curso foi escrito para as pessoas que já estejam 
bastante familiarizados com o BASIC-TK mas que te¬ 
nham pouco ou nenhum conhecimento sobre linguagem 
de máquina. 

Iremos inicialmente, introduzir o conceito de "micro¬ 
processador”. O computador como nós conhecemos 
consiste dos seguintes elementos principais: 

— o microprocessador (modelo Z80) 

— a memória 

— dispositivos de entrada (teclado, joystick) 

— dispositivos de saída (vídeo, impressora) 

— memória auxiliar (gravador K7) 

O computador pode ser comparado por analogia a um 
ser humano, só que ele "fala" BASIC em vez de portu¬ 
guês. Assim, esse "ser" tem um cérebro (que é o micro¬ 
processador) e uma memória. Você conversa com ele 
através do teclado (para enviar informações) e da tela 
(para receber informações), usando o BASIC. Acontece 
que o microprocessador NAO entende BASIC ... Ele 
entende uma língua muito mais simples e limitada à qual 
chamamos de linguagem de máquina. Dessa forma, parte 
da memória do computador contém um programa escri¬ 
to em linguagem de máquina capaz de TRADUZIR o 
BASIC, para que o microprocessador entenda os coman¬ 
dos, e, vice-versa, capaz de traduzir as respostas forneci¬ 
das pelo microprocessador. 

Nosso intuito será o de conseguir conversar DIRETA¬ 
MENTE com o microprocessador na sua própria lingua¬ 
gem. E desejável para isto que você esteja bem familiari¬ 
zado com o funcionamento das instruções PEEK e 
POKE e com os números escritos em binário ou hexa- 
. decimal (caso você não conheça estes conceitos, comece 
lendo a aula 1 (MICROHOBBY nP 2). 

Além disso, vamos começar a entender como funcio¬ 
na o programa tradutor, utilizando para nossos progra¬ 
mas algumas subrotinas já existentes ou valores de algu¬ 
mas variáveis por ele utilizadas para controle do sistema. 

Vários programas serão apresentados e já na primeira 
parte do curso conseguiremos realizar um SCROLL ao 
contrário, passando a truques para lidar com a TV e o 
teclado e finalizando com um incrível programa chama¬ 
do LIFE, cuja listagem estamos publicando neste núme¬ 
ro da revista. 

Estude com cuidado CADA programa e procure res¬ 
ponder a TODAS as questões que ácompanham o texto 
antes de prosseguir a leitura. No final de cada aula have¬ 
rá eventualmente exercícios para serem resolvidos que 
foram feitos não só para recordar os conceitos aprendi¬ 
dos mas também com o intuito de introduzir alguns 
"truques" e conceitos muito importantes. Portanto, 
sugiro que você faça os exercícios de cada aula antes de 
prosseguir para o seguinte. 
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Seria aconselhável que você tivesse uma expansão de 
memória de 16 K para que possa executar os programas 
mais interessantes deste livro, embora ela não seja estri¬ 
tamente necessária para aprender a linguagem de má¬ 
quina. 

Você poderia se perguntar: o que esta linguagem tem 
para me oferecer? A resposta resume-se a duas palavras: 
RAPIDEZ e CONTROLE, e você perceberá logo mais. 

Bom, seja bem vindo ao Universo da Linguagem de 
Máquina. 


O QUE É A LINGUAGEM DE MÁQUINA; 

O PROGRAMA INTERPRETADOR 

A linguagem de máquina (também chamada de 
ASSEMBLY) é a "língua" que o microprocessador en¬ 
tende. Ela consiste, assim como o BASIC, de uma série 
de instruções, cada uma das quais comanda o micropro¬ 
cessador para que ele faça uma tarefa específica. Entre¬ 
tanto, ela é uma linguagem de baixo nível, o que signifi¬ 
ca que instruções complicadas como loops de FOR/ 
NEXT ou cálculos de funções matemáticas (SIN, COS, 
EXP, RND, etc.) não são disponíveis; pode-se usar ape¬ 
nas instruções que comandam diretamente o micro¬ 
processador. 

O que significa exatamente "linguagem de baixo ní¬ 
vel" com instruções que comandam "diretamente" o 
microprocessador? 

O problema é que o microprocessador, por ser um 
circuito eletrônico, só é capaz de entender dois níveis de 
tensão elétrica que chamamos simbolicamente de 0 (ze¬ 
ro) e 1 (um). Portanto, somos obrigados a conversar 
com ele usando códigos formados por "cadeias" (se¬ 
quências) de 0s a Is, onde cada 0 ou 1 é chamado BIT. 
Assim, por exemplo, o código 10000101 poderia signi¬ 
ficar "some dois números", o código 1010001 "pare o 
programa", etc. Além disso, o microprocessador só é ca¬ 
paz de entender 8 bits (1 byte) por vez. Dessa forma, ca¬ 
da instrução e cada dado deve, obrigatoriamente, consis¬ 
tir de um ou mais grupos de 8 bits. No caso de números, 
o número máximo que podemos representar em 1 byte 
é 255. Se o número for maior que 255 ele deverá ser 
"quebrado" em 2 ou mais bytes para que o microproces¬ 
sador possa entendê-lo. 

Acontece que para o ser humano não é muito fácil 
conversar em 0s e Is (basta tentar imaginar uma página 
cheia de "códigos" em 0s e Is). Assim convencionou-se 
que os bits seriam agrupados de 4 em 4 substituindo-os 
pelos correspondentes algarismos em HEXADECIMAL. 
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Portanto, se quisermos falar diretamente com o mi¬ 
croprocessador, devemos lembrar que ele só entende 
bits, e cada instrução consiste em um ou mais bytes que, 
para maior facilidade de entendimento, são escritos em 
HEXADECIMAL, correspondendo, então, cada byte a 
dois dígitos hexadecimais (por exemplo C9, D4, 37, etc.). 
(OBS.: para quem não está familiarizado com as nota¬ 
ções acima indicadas, sugerimos novamente que, antes 
de prosseguir, leia a aula 1, números binários e hexadeci¬ 
mais, bit e byte, PEEK e POKE). 


A MEMÓRIA DO COMPUTADOR: ROM E RAM 

Assim como as instruções são sempre divididas em 
grupos de 8 bits, a memória do computador também é 
dividida em regiões capazes de armazenar apenas 8 bits 
cada uma. 

A memória pode ser imaginada como uma pilha de 
"registros" capazes de armazenar apenas um byte cada, 
sendo que cada registro tem um endereço que, no caso 
do TK, pode ir de 0 até 65535 (correspondendo a 0000' 
até FFFF em hexadecimal) (Fig. 1.1). 


ENDE¬ 

REÇO 

DECIMAL 

ENDEREÇO 

HEXA¬ 

DECIMAL 

CONTEÚDO 

DA 

MEMÓRIA 

CONTEÚDO 
EM HEXA¬ 
DECIMAL 

0 

0000 

0 

1 

1 

0 

1 

1 

1 

1 

6F 

1 

0001 

1 

0 

0 

1 

0 

1 

1 

1 

97 

2 

0002 

1 

0 

1 

0 

1 

0 

1 

1 

AB 

3 

0003 

0 

0 

1 

1 

0 

1 

0 

1 

35 

4 

0004 

1 

1 

1 

0 

1 

1 

0 

1 

ED 

5 

0005 

0 

1 

0 

0 

1 

1 

1 

0 

4E 


65530 

65531 

65532 

65533 

65534 

65535 


FFFA 

FFFB 

FFFC 

FFFD 

FFFE 

FFFF 


1 

1 

0 

0 

0 

0 

0 

1 

0 

1 

0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

0 

0 

1 

0 

1 

1 

1 

1 

0 

1 

0 

1 

0 

0 

1 

1 

1 

0 

1 

0 

1 

0 

1 

1 

1 

0 

0 

1 


Cl 

40 

42 

F5 

3A 

B9 


Fig. 1.1 : Exemplo de como pode ser imaginada uma memória com 
seus respectivos endereços e conteúdo; note que o conteúdo de 
um registro de memória tem sempre 1 byte (8 bits) podendo ser 
representado com 2 dígitos hexadecimais e seu respectivo endere¬ 
ço 2 bytes (16 bits), podendo ser representado com 4 dígitos he¬ 
xadecimais. 


A memória é basicamente dividida em duas partes: a 
primeira chamada ROM (Ready Only Memory), foi pre¬ 
viamente gravada por processos especiais e contém o 
programa que interpreta a linguagem BASIC, ou seja, 
"traduz as instruções do BASIC para a linguagem de má¬ 
quina. Esta região da memória é inalterável, não'poden¬ 
do, portanto, ser escrita (apenas lidas) e não perde nun¬ 
ca seu conteúdo, mesmo desligando-se o computador. A 
segunda, chamada RAM (Random Access Memory) é al¬ 
terável (pode ser lida ou escriga), e é onde são armazena¬ 
dos o conteúdo da tela de TV, os programas em BASIC 
devidamente "traduzidos" pelo interpretador (ROM), as 
variáveis dos programas e, inclusive, os futuros progra¬ 
mas em linguagem de máquina que faremos neste curso. 
Ela perde seu conteúdo desligando-se o computador. 

Note que o programa interpretador (ou tradutor) que 
está na memória ROM é escrito em linguagem de máqui¬ 
na, pois o microprocessador deve ser capaz de entendê- 
lo. Entretanto, como todo programa, ele possui variá¬ 
veis, que devem ser, obrigatoriamente, colocadas na 
RAM (caso contrário não seriam variáveis). Assim, ele 
reserva para si o INICIO da memória RAM, mais precisa¬ 
mente os endereços 16384 a 16508 para colocar suas 
próprias variáveis. 

Portanto, os programas que fizermos em linguagem 
de máquina deverão ser colocados em alguma região da 
memória RAM, inteligentemente escolhida para que não 
afete o andamento dos demais programas (eventuais pro¬ 
gramas em BASIC), a própria tela de TV ou as variáveis 
do programa interpretador. Quando programamos em 
BASIC estes cuidados não são necessários, pois o progra¬ 
ma residente na ROM se encarrega de colocar as instru¬ 
ções em lugares adequados da RAM. 


HEXADECIMAL 

_ 0000 


I 

ROM 

I 

◄- 


RAM 


.FFFF 


PROGRAMA 

INTERPRETADOR 


VARIÁVEIS DO PROGRAMA 
INTERPRETADOR 


PROGRAMAS 
EM BASIC 


TV 


VARIAVEIS DO 
PROGRAMA EM BASIC 


LIVRE 


DECIMAL 


16384 


16508 


65535 


RAMTOP 


Fig. 1.2: A memória do TK — a memória só irá até 65535 se usar¬ 
mos a expansão de 64 K. 

Na próxima aula, veremos então COMO e ONDE po¬ 
demos colocar um programa em linguagem de máquina 
no computador. 
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QUEBRA-CABEÇA 



Motoqueiro no Deserto 




MENSÜ 

International 


Era uma vez um motoqueiro, não muito inteligente, 
que vivia numa aldeia à beira do deserto. Sua moto tinha 
um tanque no qual cabia combustível suficiente para an¬ 
dar 300 km e na aldeia ele tinha um total de combustí¬ 
vel (incluindo o da moto) suficiente para 900 km. O mo¬ 
toqueiro não podia transportar nenhum vasilhame con¬ 
tendo combustível, mas podia levar consigo sacos de 
plástico vazios para enchê-los com parte do combustí¬ 
vel do tanque. Estes sacos, enterrados na areia, forma¬ 
vam um reservatório que poderia ser usado posterior¬ 
mente. 

O motoqueiro, apesar de não muito inteligente, obe¬ 
decia fielmente às instruções que recebia, por exemplo 
assim: 

10 ENCHA O TANQUE NA ALDEIA 
20 PENETRE 100 KM NO DESERTO 
30 FAÇA UM RESERVATÓRIO COM COM¬ 
BUSTÍVEL PARA 100 KM 

40 VOLTE PARA A ALDEIA 
50 ENCHA O TANQUE NOVAMENTE 
60 VA ATÉ O RESERVATÓRIO 


70 COLOQUE O COMBUSTÍVEL DO RE¬ 
SERVATÓRIO NO TANQUE 

80 PENETRE MAIS 100 KM 
90 PLANTE UMA BANDEIRA 
100 VOLTE PARA A ALDEIA 


Ele cumpriria fielmente as instruções e acabaria plan¬ 
tando uma bandeira a "200 km" da aldeia gastando 
combustível para "600 km". 

Agora, para variar um pouco, ao invés de programar 
seu TK você vai programar o motoqueiro. 

Lembre-se, ele só tem um total de combustível sufi¬ 
ciente para 900 km e no tanque da moto cabe o equi¬ 
valente a 300 km. 

Tente fazer o motoqueiro plantar a bandeira o mais 
longe possível da aldeia (regressando a salvo, obviamen¬ 
te). 

Quem mandar o melhor programa para motoqueiro 
fazendo-o chegar o mais longe possível, receberá o prê¬ 
mio costumeiro e mais o título de "Raposa do Deser- 
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CHEGA I 

DE f 

PROBLEMAS f 

Use Tig Loader % 


TIG-LOADER possibilita: 



APENAS: 
CR$ 15.000,00 


• a localização do ótimo volume do gravador, 
facilitando a operação LOAD. 

• DUPLICAR qualquer programa, mesmo aque¬ 
les "fechados”. 

• carregar (LOAD) e DUPLICAR simultanea¬ 
mente. 

• gravar (SAVE) em 2 gravadores ao mesmo 
tempo. 

• monitorar as operações LOAD, SAVE ou 
DUPLICAÇÃO através de fone. 

• filtrar as interferências elétricas de baixa 
freqüência, que são a causa da maioria 
dos problemas de LOAD/SAVE. 


APLICATIVOS PARA TK 

TIG-SCREEN: vinte e sete rotinas de vídeo, para incrementar seus programas! 
Inversão de vídeo, moldura, arquivo de imagens, rotação, scroll em quatro 
direções, etc... efeitos visuais incríveis! Em linguagem de máquina, ocupa 
1,3Kb, ficando protegido no RAMTOP, depois é só utilizá-lo onde quizer! 
P/16K Com manual explicativo Cr$ 8.000,00 

TIG-COMP: coloque, em seus programas em BASIC, a velocidade de 
código de máquina. Rode-os na forma COMPILADA! Simples de usar, 
é só carregar ou digitar o seu programa em BASIC e depois usar 
o TIG-COMP. Pronto! Você terá o seu programa em linguagem de máquina em 
instantes. 

P/16K Com manual explicativo Cr$ 15.000,00 

TIG-SPEED: uma combinação de soft e hardware, permitindo uma transferência 
de dados micro/cassete de 4.200 bauds. Você poderá carregar ou gravar 
16 Kb em 30 segundos! Acrescenta ao micro a função VERIFY. Facílimo de 
operar, compõe-se de cassete, interface e manual explicativo. 

P/ 16 e 48K Preço sob consulta. 


Envie seu pedido + cheque nominal cruzado 
Prazo de entrega: 15 d ias 
Preços válidos até 10/09/83 
Despesas postais incluídas nos preços 

Atendemos somente por carta TIGRE COM. DE EQUIP. PI COMPUTADORES LTDA. 



Rua Correia Galvão, 224 
CEP 01547-São Paulo-SP 


QTD 

ARTIGO 

PREÇO 

TOTAL 

















TOTAL DO PEDIDO: 



SIM, desejo receber os produtos acima relacionado, para o que estou anexando o cheque n-.. no valor 

de. 


NOME_ 

ENDEREÇO_ 

CEP _CIDADE_ESTADO_ 

PROFISSÃO_DATA NASC. / / 

MICROCOMPUTADOR_ 
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RESPOSTA DO QUEBRA-CABEÇA 


O Banqueiro e o Ministro 



Para resolver o quebra-cabeças, "0 Banqueiro e o 
Ministro", comecei por fazer o cálculo do número N, 
proposto no problema, para algumas partições P do ano. 

P = 2 N = 1.5 X 1,5= (1,5) 2 = 2,25 

P = 4 N = 1,25 X 1,25 X 1,25 X 1,25 = 

= (1,25) 4 = 2,44 


P = 8 N = (1,125)® = 2,57 


A essa altura, já pude ver que a fórmula genérica de 
N é: 

N = ( 1 + y ) p 

onde P é o número de partes ern que está dividido o ano. 

Acontece que a fórmula obtida, é muito conhecida do 
Cálculo. E sabe-se que quando P tende ao infinito, o va¬ 
lor de N tende ao número "e" que vale aproximadamen¬ 
te 2,7182818. Escreve-se: 

lim ( 1 + 4-) p = e * 2,7182818 


Ora, se para um número P tão grande quanto desejar¬ 
mos, N não ultrapassa 2,72, então os juros não podem 
ser maiores que 172%, por mais pequena que seja a uni¬ 
dade de tempo usada para a cobrança de juros. 

Em seguida fiz um programa (fig. 1) que mostra que 
quando aumentamos o valor de P, N tende a ”e". 

P programa começa com um P = 1; depois P = 2; 
P = 4;P = 8;P = 16...; mostra a unidade de tempo T 
que se está tomando para a cobrança dos juros e o valor 
de N. 


1 RCh O BRNQ. E O MINISTRO 
10 LET PRRT = 1000 ^60 *60 *24 *365 
20 LET P=1 

30 LET N = INT ( 10000*í1+ 1/P) **P 

/10000 

4-0 LET T=PflRT/P 
50 SCROLL 

50 PRINT = T = n ; INT T/10 

00j TRB 24; •*N = ,, ;N 
70 LET P=P*2 

80 IP P/2<PRRT THEN GOTO 30 
90 SCROLL 

100 PRINT TRB 2;PftRT; ,, P/T=0.001 

SEG " 

fig. 1 

Ao rodar o programa, vi que para P = 32768 (o que 
corresponde a tomar como unidade de tempo 949,2 
seg.) N já assume o valor de 2,7182, permanecendo 
constante para valores inferiores a 949,2 s. 

Com espanto vi que o nosso TK82C não pode calcular 
N, com precisão, a partir de carto valor de P, o que nos 
impede de calcular N para o milésimo de segundo (ms). 

A partição do ano para o milésimo de segundo P ms é: 


P ms = 365 X 24 X 60 X 60 X 1000 = 
= 3,1536 X 10 1 * 


Como 3,1536 X 10 1 * é muito maior que 32.768, po- 
demos assumir com acerto o valor "e" para N, quando 
usamos como unidade de tempo 0,001 seg. 

Agora, respondendo aos itens do quebra-cabeça: 

A) Como o Super-Ministro toleraria juros de até 180% e 
sabia que pela proposta do banqueiro estes não pode¬ 
riam ultrapassar 172%, concluímos que o banqueiro fez 
papel de trouxa (não, quem fez fomos nós! n.d.e.) 

B) 0 capital C valerá no fim de um ano aproximada¬ 
mente: 


2,7182818 XC 
N *2,7182818 




C) Log e 2,7182818 — 1, pois 
e‘3í 2,7182818 

> 
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0 programa pedido no quebra-cabeça é o seguinte: 


TPXR DE 


1 REH ROGRRMR 2 
5 DIM P(9) 

10 PRINT f, TRXP RNURL 11 
20 PRINT " UNIDPDE 
■UROS 

P (lí =1 
P (2) =2 
P (3) = 4- 
P (4-> =12 
P(5)=365/7 
P (6) =365 
P (7) =P (6) *24- 
P (8) =P (7) *60 
(9/ =P <3> *60 


30 LET 
4-0 LET 
50 LET 
60 LET 
70 LET 
80 LET 
98 LET 
103 LET 
113 LET P 
123 PRINT 
130 PRINT 
RIMESTRE" 


n RNO n ,, 

” H^S " 

' , ,"hiORft”, , "MINUTO” , 

14-0 PRINT RT 3^16; 

POR C=1 TO 9 

LET J=((1+1/P(C))í*P(C)-i) 


‘SEMESTRE",,"T 
SEMfiNfl" , , "D IP. 
"SEGUNDO" 



IP J>=e.5+XNT ü THEN LET .J = 

PRINT INT U/TRB IS, 

NEXT C 



Nota da Redação: até a data do fechamento recebemos 
respostas corretas também de: 

WALDIR COSTA SOLA 

SAMUEL EJCHEL 

ALEXANDRE G.F. LIMA 

FAUSTO DALLARE 

JACQUES J. ABRAM 

ALLAN CHAMECKI BR IK 

LUIS GUILHERME BAROUCHEL 

ROBERTO MARQUES BEKMAN 

HERMELINDO PINHEIRO MANOEL 

CARLO FILIPO FITTI 

FERNANDO R.C. NEV MORAES 

ELOY WINTER JUNIOR 

DINEU B A DE OLIVEIRA 

DARIO JOSÉ SLOMP 

TEUCLE MANNARELLI FILHO 

JOSÉ ISSAMU YAMADA 

AMAURI S. SOUZA 

ENIO E. KRANEN 

MARCELO P O. GOMES 


Vendo TK82-C com expansão de 16 K ou troco e vol¬ 
to a diferença pelo TK85 (16 ou 48K). Preço base: 10% 
abaixo da tabela "Microdigital". Cx. Postal 177 — Join¬ 
ville — SC, c/ Cláudio. Aceito propostas. 

Vendo um microcomputador TK82-C, uma expansão 
de 16 K, um joystick, uma fita com jogos e o livro ''49 
Explosives Games for ZX-81'', por Cr$ 145.000,00 — 
João Rogério — tel.: 238-6978 (Rio de Janeiro)". 

Médico anestesista procura alma gêmea para intercâm¬ 
bio informático em TK — Roberto Araújo — R. 
Uruguay, 205 - ap. 803 — Rio de Janeiro — RJ. 

Desejo trocar circuitos, informações e programas, 
principalmente jogos para OTK82-C com 16K -Ricardo 
Collório - R. Antonio Zini, 33 — 95680 — Canela — RS. 

CP-200, vendo por Cr$ 170.000,00 e uma calculadora 
Sharp 1211 com impressora e interface para K-7 por 
Cr$ 160.000,00 (ambos com garantia) - J. Maldonado 
-Tel.: (011) 452-6617 ou 452-6835. 

TK82-C — Jogos utilitários e aplicativos. Vendo ou 
troco. Marco Antonio - tel. 247-4071 — Rio de Janeiro. 


Serviço de Datilografia — IBM. Teses, apostilas e ma¬ 
nuais técnicos. Telefone: 258-8486 — Américo — SP. 

Vendo Timex Sinclair 1000 — Expansão de Memória de 
64 K — HRG (Periférico para alta resolução) — l/F (In¬ 
terface para saída RS-232) e Programas - Tel.:270-3368 
(falar com TANIOS). 

Vende-se um TK-82C com expansão de 16 K. Tratar 
com José Luis — Tel.: 274-5995 — Final de semana. 

MICRO BITS 

CLUBE NACIONAL DOS TK/NE/SINCLAIR - Caixa 
Postal 12464 — 04798 — São Paulo — SP. 

Vendo computador TK-82 c/ 16K. Sistema completo: 
c/ SLOW e chave p/ vídeo-reverso mais gravador Natio¬ 
nal, mais 6 fitas de programas (Microsoft) e jogos, 6 li¬ 
vros importados c/ truques e dicas sensacionais p/ o TK. 
Tudo p/ 180.000,00. Aceito contra-oferta. Tratar c/ 
Roberto — Tel.: 853-6713 à noite. n 



Xadrez 

Divulgação e 
Empreendimentos Ltda. 


TUDO PARA A PRÁTICA 
- DO REI DOS JOGOS - 


Xadrez Eletrônico 
Tabuleiros e peças 
Mesas e relógios 
Livros e revistas 
Aulas e Simultâneas 
Organização de Torneios 

Av. Brig.° Faria Lima. 1644 • sbl. 61 • 01452 São Paulo SP 
Fones: (011) 814-9340 • 814-9539 
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COMO FAZER 
SUA ASSINATURA 


A nossa revista não será distribuída nas bancas. 

Para obter seu exemplar mensal, contendo muitos 
programas para o seu TK, muitas dicas e prêmios 
interessantíssimos, você deverá fazer uma assinatura: 
o preço anual da assinatura é de Cr$ 11.800,00. 

Porém, até 30 de setembro, manteremos o preço de 
Cr$ 9.900,00, com direito a uma fita inédita de jogos: 
São Paulo (2K) 

Mansão Maluca (16K) 

cujo valor comercial é superior a Cr$ 6.000,00. 

Para tanto, você deverá preencher corretamente 
o cupom anexo (não esquecendo de assinalar o brinde 
de sua escolha), e colocá-lo num envelope, junto a um 
cheque nominal ou vale postal a favor de MICROMEGA 
PUBLICAÇÕES E MATERIAL DIDÁTICO LTDA., no 
valor de Cr$ 9.900,00 (oferta válida até 30 de 
setembro). 


O envelope deverá ser selado e endereçado à 

MICROMEGA P.M.D. LTDA. 

Caixa Postal 60081 — CEP 05096 
São Paulo - SP 


No verso do cheque escreva: 

"Destina-se ao pagamento de uma assinatura 
(12 números) da revista MICROHOBBY" 

Quando este cheque for devolvido ao seu Banco 
com nosso endosso, servirá de comprovante provisório 
até que nosso recibo seja enviado pelo correio. 

O 


O QUE ESTA 
RESERVADO 
PARA O N?4: 


tippkz 

f® 


POR DENTRO DO 

Suplemento especial para o usuário do TK aprender a 
lidar com computadores compatíveis com a linha 

APPLE. •marca registrada da APPLE Computers. inc 


PROGRAMAS DO LEITOR: 

O Professor — um utilíssimo programa didático. 

Othello - um desafio à sua inteligência. 

I-CHING — livro das mutações. 

PROGRAMAS DO MÊS: 

Pentaspeed-como gravar e ler programas no TK82 com 
uma velocidade 5 vezes maior. 


DICAS: 

Como usar o mapa da RAM do TK. 



CURSOS: 

Aula n? 4 do Curso de Basic. 

Aula n? 3 do ASSEMBLY. 

PEQUENOS ANÚNCIOS: 

Envie seu pequeno anúncio para ser publicado gratuita¬ 
mente. 

NOVIDADES: 

TK83: o novo "design". 

TK85: mais funções especiais. 

O 
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PREPARE-SE PARA O 



No NÚCLEO você pode se inscrever escolhendo as matérias, dependendo de suas reais necessidades, 
aproveitando ao máximo seu tempo. 

Se o seu problema é MATEMÁTICA, FÍSICA, QUÍMICA, BIOLOGIA, GRAMÁTICA, REDAÇÃO, FRANCÊS, 
ETC., temos os melhores professores dos melhores cursinhos de São Paulo, para lhe dar um 
atendimento INDIVIDUALIZADO. 



) 


Informações e inscrições 
para turmas de /7VZYZ 



ê 


Núcleo 

orientação 
estudos 



Av. Brig. Faria Lima, 1451 • 3.° • Cj. 31 
“ ' > São P. 


Tel.: 813-4555 • CEP 01451 


aulo - SP 


Desgravador e rejuvenescedor instantâneo 


de fitas K-7 



PARA 
APAGAR 
BASTA PASSAR 
A FITA IOA E 
VOLTA PELA 
ABERTURA 



micromega 


Sistema: PASSOU... DESGRAVOU 
GARANTIA DE 5 ANOS 


r win lio 

* Desgrava e rejuvenesce em apenas 4 segundos, qual¬ 
quer fita cassete independente de sua duração, eliminan¬ 
do todos os ruídos e chiados decorrentes de frequentes 
regra vações. 

* Poupa o desgaste da fita e do gravador. 

* Poupa tempo e melhora a qualidade do som da fita casse¬ 
te na reutilização da mesma. 

* Gravando em cima de outra gravação, a qualidade da re¬ 
produção é consideravelmente prejudicada, além de criar 
confusões, principalmente se a gravação anterior for de 
duração maiscurta. Desgravando com o TW1N-GO, nada 
disso acontece. 

* O TWIN-GO é indispensável a todos os profissionais e 
amadores, usuários de fitas cassete. 


Pedidos por corta ò 

MICROMEGA PMD LTDA. 

Caixa Postal 60081 - CEP 05096 - São Paulo-SP 

anexando Cheque Nominal ou Vale Postal, 
incluindo mais despesas de frete no valor 
de Cr$ 500,00, autorizando o recebimento 
da compra no prazo de 15 dias. 




















Características Técnicas 

• Linguagem BASIC 

• 10 Kbytes de ROM 

• 16 ou 48 Kbytes de memória 
RAM. 

• 40 teclas e 160 funções. 

• Gravação de programas em 
fita cassete comum. 

• Input e Output de dados. 

• Vídeo: aparelhos de TV B&P 
ou colorido. 

• Funções especiais 
HIGH-SPEED. 

• Som Opcional. 

• Joystick, impressora. 

Preço de lançamento: 

CrS 219.850,00 (16 K) 

CrS 289.850,00 (48 K) 

(Preço sujeito a alteração) 






?fio 


v° c ,V sl 








C° T 



p. oÕ e 'VTa • .o^ 

%£&&*■** 


iÍLIA 224-2777/225-4534/226-9201/ 
IABA 321-8119/321 7929* CURITI- 


REVENDEDORES: ARACAJU 224-1310 • BELEM 222-5122/226-0518 • BELO HORIZONTE 226-6336/225-3305/225-0644/201 -7555 • BLUMENAU 22 1250 • BRASÍL 
226-4327/242-6344/242-5159 • BRUSQUE 550675 • CAMPINAS 32-3810/8-0822/32-4155/2 9930 • CAMPO GRANDE 3830487/382-5332 • CARUARU 721-1273 • CUIAB 

BA 232 1750/224 6467/224-3422/243-1731/223-6944/233-8572/232-1196 • DIVINÓPOLIS 221 2942 • FLORIANÓPOLIS 23-1039 • FORTALEZA 226-4922/231524^31-0577/2317013 * FREDERICO 
WESTPHALEN 344-1550 • GOIÂNIA 261-0333/224-0557 * IJUÍ 332 2740 * ITAJUBÀ 622 2088 * LINS 22 2428 * L ON DRIN A 22-4244/23-^74^MACEI0 223-3979/2210776 «MAN AUS 237 1793 *MO^ 
OI DAS CRUZES 468-3779/208-6797 * MURIARE 721-1593 * NATAL 222-3212/231 1055 • NITERÓI 722-6791 * NOVO HAMBURGO 93-1922/93-3800.PELOTAS245139. PORTOUEQIWHMbS* 

21-4189/24-1411/22-3151/24-0311/21-6109/24-7746» PRESIDENTE PRUDENTE 22-2788* RECIFE 241-4310/224-8777/224-3436/224-4327 «RESENDE 54-1664» RIBEIRÃO PIWETO 636^^^6/634-4715/ 
635-1195* RIO DE JANEIRO 267-1093/252-2050/253-3395/2640143/259-1516/232-5948/591-3297/222-6088/267-1339/320-4869/228-2^0/2404824/23^561^542-3849020^37 *SAL\Mi^OR248-6666/ 

^ 712 °* SANTO ANDRÉ45S4962/444 7375/454-9283. SANTOS4 1220/32-7045^5-1792/33-2230*SkOCARLOS 7í^24^ÂO JOÃO DA BOA VISTA^^ 
• SÃO JOSÉ DOS CAMPOS 22-3968/22-7311/22-8925/21-3135 • SÃO PAULO 853-0164/853^)448/239-4122/36-6961 /61 -4049/8811149/258-3954/212 9004/282 2105/212 3888/545-4769/227 3022/ 
234-8796^* WÇOSA^Ííri MARÍLJA 3 Ím^0^^ 1 *99^21 -3779/270-7442/210-7681/813-4031 * SOROCABA 32-9988 * TAUBATÉ 31-4137 * UBeRaBA 21 ^! *^UBERUÍSa 






